如果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。
……