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

如何快速取消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。