如何打印窗体

在access 2003版本中,用向导新增一个按钮控件,按钮命令选 窗体操作-打印窗体.

代码如下

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = ChrW(31383) & ChrW(20307) & ChrW(49)
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False