Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > 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群 (群号:115120150)       access源码网店

最新评论 查看更多评论(3)

2018/11/8 19:29:22天马行空
DoCmd.RunCommand acCmdPrint 使用VBA高级打印命令,取消打印的时候会出现错误 上面的代码是我一时想到的用来替代系统打印命令,相当于有了报表打印事件 不过在使用的时候预览报表界面按P也能打印,这个就没办法了

2018/11/7 18:09:07xlb
好像不行,上个示例

2018/11/6 22:24:58麥田
建议下次直接上示例

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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