Private Sub
Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox “節(jié)約用紙 拒絕打印”, vbInformation
End Sub