-
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim n%
n = MsgBox("打印本工作表——→第1页,按“是”;" & Chr(13) & Chr(13) & _
"打印本工作表——→全部,按“否”;" & Chr(13) & Chr(13) & _
"不是打印本工作表,按“取消”。", vbYesNoCancel, "选择性打印提示")
If n = 2 Then Cancel = True: Exit Sub
Application.EnableEvents = False
If n = 6 Then
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "甲方收货人:"
ActiveWindow.SelectedSheets.PrintOut To:=1
Else
ActiveSheet.PageSetup.CenterFooter = "第 &P 页,共 &N 页"
End If
Application.EnableEvents = True
End Sub
如本站内容“对您有用”,欢迎随意打赏,让我们持续更新!
打赏