Excel VBA解读（78）：设置工作表页面——PageSetup属性

 

在VBA中，可以使用PageSetup属性返回的对象来设置工作表在打印时的页边距、纸张方向、纸张大小等。

 

PageSetup属性的语法为：

Worksheet对象.PageSetup

说明：

• 只读。返回一个PageSetup对象，包含对指定工作表对象页面设置的全部内容，其属性与“页面设置”对话框中相应的内容如图1～4所示。

 

 图1

 图2

 图3

 图4

其中，一些属性需要设置True或False，如图中复选框对应的属性；一些属性需要赋予其常量值，如图1中的方向对应的属性；一些属性需要设置数值，如图2中页边距对应的属性；一些属性需要填写内容，如图4中的打印区域。有兴趣的朋友可以自已录制设置页面的代码，或者试着设置其中一些属性的值，看看运行后的效果，以此熟悉这些属性。

 

示例：设置当前工作表页面

下面的代码设置当前工作表打印区域、打印标题行、顶部页边距、以及页眉文字。

Sub PageSetupTest()

   With ActiveSheet.PageSetup

        .PrintTitleRows = 'A1'

        .PrintArea = '$A$1:$C$13'

        .TopMargin =Application.InchesToPoints(2)

        .LeftHeader = '完美Excel'

        .CenterHeader = '第 &P 页，共 &N 页'

        .RightHeader = 'exceperfect'

   End With

   ActiveSheet.PrintPreview

End Sub

由于格式属性需要以磅为单位来度量，因此使用InchesToPoints函数将以英寸表示的尺寸数转换成以磅表示的尺寸。PrintTitleRows设置每页的标题为单元格A1中的数据。运行代码后的结果如图5所示。

 图5

---

 

本文为原创文章，转载请注明出处。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。