admin 管理员组文章数量: 1086019
2024年3月13日发(作者：思莱德属于哪个国家的)
4月微软MVP申请开始！ 点击了解英特尔云计
算 2012年1月当选微软MVP的CSDN会员名单揭晓！
全面认识页面设置之PageSetup 对象
分类： [Microsoft] - [vba] 2011-10-28 12:52 73人阅读 评论(0) 收藏 举
报
我们在写VBA代码时，特别是做小型程序开发时，经常会用VBA来设置“页面
设置”中的选项，还可用要用VBA来实现一些特殊的效果，这就需要使用
PageSteup对象。PageSetup 对象包含所有页面设置的属性（左边距、底部边距、
纸张大小等）。此对象共有49个属性，其中：8个属性是EXCEL2007新添加的，
1个属性在2007中被删除了。
下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无对应选
项卡”五个类别来逐一介绍这49个属性：
一、
与“页面”选项卡对应的属性有7个。分别为：PrintQuality、Orientation、
FirstPageNumber、Zoom、FitToPagesWide、FitToPagesTall、PaperSize。
1、PrintQuality：返回或设置打印质量。Variant类型，可读写。此属性与“打印
质量”选项对应。
Worksheets("Sheet1").uality = Array(240, 140)’用数组指定水平和
垂直方向的打印质量
Worksheets("Sheet1").uality(1)=600’指定水平方向的打印质量
Worksheets("Sheet1").uality(2)=600’指定垂直方向的打印质量
以上示例在使用过程中是否出现错误取决于使用的打印机驱动程序，因为不同打
印机能够设置的质量是不同的。
2、Orientation：返回或设置一个XlPageOrientation值，它代表纵向或横向打印模
式。此属性与“方向”选项对应。
Worksheets("Sheet1").ation = xlLandscape’设置模向打印模式
Worksheets("Sheet1").ation = xlPortrait’设置纵向打印模式
3、FirstPageNumber：返回或设置打印指定工作表时第一页的页号。如果设为
xlAutomatic，则MicrosoftExcel采用第一页的页号。默认值为xlAutomatic。Long
类型，可读写。此属性与“起始页码”选项对应。
可以根据需要设置任意的数据，这样打印出来的报表就不是从第一页开始了的。
4、Zoom：返回或设置一个Variant值，它代表一个数值在10%到400%之间的百
分比，该百分比为MicrosoftExcel打印工作表时的缩放比例。此属性与“缩放比
例”选项对应。
输入时不要输入百分号（%），只输入数值就可以了。
5、FitToPagesWide：返回或设置打印工作表时，对工作表进行缩放使用的页宽。
仅应用于工作表。Variant类型，可读写。此属性与“页高”选项对应。
6、FitToPagesTall：返回或设置打印工作表时，对工作表进行缩放使用的页高。
仅应用于工作表。Variant类型，可读写。此属性与“页宽”选项对应。
只有Zoom属性值为False时，FitToPagesWide和FitToPagesTall属性才会起作用，
大家使用的时候请注意。
7、PaperSize：返回或设置纸张的大小。XlPaperSize类型，可读写。此属性与“纸张大小”
选项对应。
二、 与“页边距”选项卡对应的属性有8个。分别为：CenterVertically、
CenterHorizontally、TopMargin、 BottomMargin、FooterMargin、HeaderMargin、
RightMargin、LeftMargin
1、CenterVertically：如果在页面的垂直居中位置打印指定工作表，则该属性值为True。
Boolean类型，可读写。此属性与“垂直”选项对应。
Worksheets("Sheet1").PageSetup. CenterVertically = True’将工作表设置成垂直居中。
2、CenterHorizontally：如果在页面的水平居中位置打印指定工作表，则该属性值为True。
Boolean类型，可读写。此属性与“水平”选项对应。
Worksheets("Sheet1").Horizontally = True’将工作表设置成水平居中。
3、TopMargin：以磅为单位返回或设置上边距的大小。Double类型，可读写。此属性与“上”
选项对应。
4、BottomMargin：以磅为单位返回或设置底端边距的大小。Double类型，可读写。此属性
与“下”选项对应。
5、FooterMargin：以磅为单位返回或设置页脚到页面底端的距离。Double类型，可读写。
此属性与“页脚”选项对应。
6、HeaderMargin：以磅为单位返回或设置页面顶端到页眉的距离。Double类型，可读写。
此属性与“页眉”选项对应。
7、RightMargin：以磅为单位返回或设置右边距的大小。Double类型，可读写。此属性与
“右”选项对应。
8、LeftMargin：以磅为单位返回或设置左边距的大小。Double类型，可读写。此属性与“左”
选项对应。
我通过“页面设置”窗体将页面上边距设置成2，请注意这里的单位是“厘米”（也就是说
在“页边距”选项卡中数据的单位是“厘米”），使用录制宏会生成如下的代码：
.TopMargin = ToPoints(0.7874)
这段代码并不是我们一般思维的代码写法，为什么不是.TopMargin =2呢？。原因就是这6
个属性的单位都“磅”，那么“磅“又是什么单位呢？磅：指打印的字符的高度的度量单位。
1 磅等于 1/72 英寸（即1皮卡），或大约等于 1 厘米的 1/28。
那么这个“0.7874”又是什么单位呢？答案是：“英寸”。因此需要进行单位转
换，InchesToPoints方法的作用就是将度量单位从英寸转换为磅。
显然这种写法不符合我们国人的习惯，将“厘米”转换成“英寸”，再转换成“磅”，直接
将“厘米”转换成“磅”不是更方便！我们可以使用 CentimetersToPoints方法就可以实
现“厘米”直接转“磅”。代码写成：.TopMargin etersToPoints(2)。
三、 与“页眉/页脚”选项卡对应的属性有16个。分别为：
OddAndEvenPagesHeaderFooter、 DifferentFirstPageHeaderFooter、
ScaleWithDocHeaderFooter、 AlignMarginsHeaderFooter、RightFooter、
RightFooterPicture、CenterFooter、 CenterFooterPicture、LeftFooter、
LeftFooterPicture、RightHeader、 RightHeaderPicture、CenterHeader、
CenterHeaderPicture、LeftHeader、 LeftHeaderPicture
1、OddAndEvenPagesHeaderFooter：如果指定的PageSetup对象的奇数页和偶数
页具有不同的页眉和页脚，则为True。可读/写Boolean类型。此属性与“奇偶
版权声明：本文标题：pagesetup属性与方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1710285293a566118.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论