通常在Excel VBA中用“Workbook.BeforePrint”事件在打印前執行某項操作或命令，那么，要在打印后再執行某個命令該如何實現呢？Excel中并沒有提供“AfterPrint”事件，用下面的VBA代碼可以模擬“AfterPrint”事件。
假如在“Sheet1”表的A1單元格包含某個數值，需要在打印后讓這個數值加“1”，方法如下：
按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊“ThisWorkBook”，在代碼窗口中粘貼下列代碼：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False ‘不觸發BeforePrint事件
ActiveSheet.PrintOut
Sheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1
Application.EnableEvents = True
Cancel = True ‘取消打印
End Sub
返回Excel工作表界面，在“工具欄”或“快速訪問工具欄”中點“打印”按鈕打印當前活動工作表后，Sheet1表A1單元格的數值就會自動加“1”。
