5,139
社区成员
发帖
与我相关
我的任务
分享
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
msgbox"已禁止打印功能"
End Sub
Public WithEvents appWord as Word.Application
Private Sub appWord_DocumentBeforePrint _
(ByVal Doc As Document, _
Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Have you checked the " _
& "printer for letterhead?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub