Bob的工作簿中包含大约十五个工作表,并且他需要将所有工作表的页面格式从Letter更改为A4。通过执行以下步骤,可以快速进行更改:

。用鼠标右键单击任何工作表选项卡。您会看到一个上下文菜单。

。选择选择所有工作表。现在应选择所有工作表选项卡。

。从文件菜单中选择页面设置。 Excel将显示“页面设置”对话框。

。确保显示页面选项卡。 (请参见图1。)

。使用纸张尺寸下拉列表,选择A4。

。单击确定。

。用鼠标右键单击任何工作表选项卡。您将再次看到一个上下文菜单。

。选择取消分组工作表。

而已;现在为所有工作表设置了纸张尺寸。但是,这种方法有一个缺点:如果各个工作表具有不同的页面设置设置(不同的方向,页边距,页眉,页脚等),则按照以下步骤进行设置即可。

如果您只想更改纸张尺寸并且不想更改任何其他设置,则唯一的办法就是使用宏进行更改。

Sub AllSheetsA4()

Dim sht As Variant

For Each sht In ActiveWorkbook.Sheets         sht.PageSetup.PaperSize = xlPaperA4     Next End Sub

宏逐步浏览工作簿中的每张纸,仅更改PaperSize属性,以便该纸将在A4纸上打印。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(2896)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: