Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

十行代码解决 判断是否完成报表打印

时 间:2018-11-06 17:00:34
作 者:天马行空   ID:27183  城市:温州
摘 要:完成报表打印
正 文:

点击下载此附件

'建一个宏: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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助