在有一些页面的打印时,需要根据页面内容做一些签字、盖章等体现审批、权限的操作,这些东西不希望公开给操作的人员,仅由系统根据数据状态进行处理,下面的函数即可以实现在打印前显示图片,打印后又隐藏的操作,也可以修改某一单元格中打印和显示的内容。
变量声名
'在模块中声名全局变量
Public isRealPrint As Boolean
工作表打印函数
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not isRealPrint Then
' 将你打印前的处理代码放在这里
isRealPrint = True
Range("A1") = "OK" '打印出的此单元格的内容
'