请选择 进入手机版 | 继续访问电脑版
用户
 找回密码
 立即注册

只需一步,快速开始

搜索
查看: 1623|回复: 0

如何用VBA判断程序是否执行了打印

[复制链接]

9

主题

9

帖子

251

积分

超级版主

Rank: 8Rank: 8

积分
251
发表于 2018-8-7 11:32:26 | 显示全部楼层 |阅读模式
本帖最后由 qq65498198 于 2018-8-7 12:05 编辑

excell 关于打印的事件好像只有一个BeforePrint事件,是在打印工作簿之前触发,如果非要判断是否已经执行了打印操作,那只有在BeforePrint事件中用代码来接管打印操作,完成后给出提示。下面的代码供参考:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
If MsgBox("将要执行打印操作,确认吗?", vbYesNo) = vbYes Then
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    If Err.Number = 0 Then
        Sheet1.[a1] = "已打印"            '如果执行了打印操作,则将Sheet1的A1单元格的内容设为“已打印”。
    Else
        MsgBox "打印没有完成!"
    End If
End If
Cancel = True
End Sub
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则