点击下载此附件

'建一个宏：AutoKeys

'宏名：^P

'操作：RunCode

'函数名称：AfterPrint()

'模块内容

Public PrintDone As Boolean                         '是否完成打印

Public Function AfterPrint()
On Error GoTo err:
    PrintDone = False                               '未打印
    DoCmd.RunCommand acCmdPrint          'VBA高级打印命令,如果取消打印会出现2501错误,不会继续执行下面的代码
    PrintDone = True                                '完成打印
    DoCmd.Close acReport, Screen.ActiveReport.name  '关闭报表
    Exit Function
err:
    If err.number <> 2501 Then                '如果取消打印不弹出错误信息
        MsgBox err.DESCRIPTION
    End If
End Function

'模块内容

'关闭报表事件

If PrintDone = True Then

    DoCmd.RunSQL "update 表 set Print=1 where id=" & Me.ID
End If