如何迅速取消Excel工作簿中的所有打印區域

如果Excel工作簿中有許多工作表，并且有多個工作表設置了打印區域，要取消該工作簿中的所有打印區域，用逐一選擇每個工作表，然后用單擊菜單“文件→打印區域→取消打印區域”的方法顯得很繁瑣。用下面的兩種方法可以快速取消工作簿中的所有打印區域：

???一、用VBA代碼：

??? 1.按Alt+F11，打開VBA編輯器。

??? 2.單擊菜單“插入→模塊”，在右側的代碼窗口中粘貼下列代碼：

??? Sub ClearAllPrintArea()
??? Dim ws As Worksheet
??? For Each ws In ThisWorkbook.Worksheets
??????? ws.PageSetup.PrintArea = ""
??? Next ws
??? End Sub

??? 3.關閉VBA編輯器，按快捷鍵Alt+F8，打開“宏”對話框，選擇“ClearAllPrintArea”，單擊“執行”按鈕即可。

??? 二、用名稱管理器

??? 本方法僅適用于Excel 2007。

??? 1.在功能區中，選擇“公式”選項卡，單擊“名稱管理器”按鈕，打開“名稱管理器”對話框。

??? 2.可以看到設置了打印區域的工作表都自動定義了一個相同的名稱“Print_Area”。用Ctrl鍵或Shift鍵選擇對話框中的所有名稱“Print_Area”，單擊“刪除”按鈕。Excel將刪除工作簿中的所有打印區域。

???

??? 在Excel 2003中，由于“定義名稱”對話框中僅能顯示一個工作表中的名稱，所以本方法不適合于Excel 2003。