在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
本文为原创文章,转载请注明出处。
欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。
联系客服