excel模擬“AfterPrint”事件打印后執行命令

Excel模擬“AfterPrint”事件打印后執行命令

通常在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.PrintOutSheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1Application.EnableEvents = TrueCancel = True ‘取消打印End Sub

返回Excel工作表界面，在“工具欄”或“快速訪問工具欄”中點“打印”按鈕打印當前活動工作表后，Sheet1表A1單元格的數值就會自動加“1”。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。