全面认识页面设置之PageSetup对象

一、与“页面”选项卡对应的属性有 7 个。分别为：PrintQuality、Orientation、 FirstPageNumber、Zoom、FitToPagesWide、FitToPagesTall、PaperSize。 1、PrintQuality：返回或设置打印质量。Variant 类型，可读写。此属性与“打印 质量”选项对应。 Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)’用数组指定水平和 垂直方向的打印质量 Worksheets("Sheet1").PageSetup.PrintQuality(1)=600’指定水平方向的打印质量 Worksheets("Sheet1").PageSetup.PrintQuality(2)=600’指定垂直方向的打印质量 以上示例在使用过程中是否出现错误取决于使用的打印机驱动程序，因为不同打 印机能够设置的质量是不同的。 2、Orientation：返回或设置一个 XlPageOrientation 值，它代表纵向或横向打印模 式。此属性与“方向”选项对应。 Worksheets("Sheet1").PageSetup.Orientation = xlLandscape’设置模向打印模式 Worksheets("Sheet1").PageSetup.Orientation = xlPortrait’设置纵向打印模式 3、FirstPageNumber：返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则 MicrosoftExcel 采用第一页的页号。默认值为 xlAutomatic。Long 类型，可读写。此属性与“起始页码”选项对应。 可以根据需要设置任意的数据，这样打印出来的报表就不是从第一页开始了的。 4、Zoom：返回或设置一个 Variant 值，它代表一个数值在 10%到 400%之间的百 分比，该百分比为 MicrosoftExcel 打印工作表时的缩放比例。此属性与“缩放比
16、LeftHeaderPicture：返回一个 Graphic 对象，该对象表示页眉左边的图片。用 于设置图片的属性。此属性与“自定义页眉-左”选项对应。 以上对属性的说明与 EXCEL 的帮助不完全相同，因为经过测试帮助中的一些说 明是有错误。
四、 与“工作表”选项卡对应的属性有 11 个。分别为：Draft、PrintErrors、 BlackAndWhite、PrintHeadings、PrintComments、PrintNotes、PrintArea、Order、 PrintGridlines、PrintTitleRows、PrintTitleColumns。 1、Draft：如果打印工作表时不打印其中的图形，则该属性值为 True。Boolean 类型，可读写。此属性与“打印-草稿品质”选项对应。 将该属性设置为 True 可加快打印速度（但是不打印其中的图形）。 2、PrintErrors：设置或返回一个 XlPrintErrors 常量，该常量指定显示的打印错误 类型。该功能允许用户在打印工作表时取消错误显示。可读写描述 选项设置值 xlPrintErrorsBlank 1 打印错误为空白。 <空白> xlPrintErrorsDash 2 打印错误显示为划线。 -xlPrintErrorsDisplayed 0 显示全部打印错误。 显示值 xlPrintErrorsNA 3 打印错误显示为不可用。 #N/A 3、BlackAndWhite：如果指定文档中的元素以黑白方式打印，则该属性值为 True。 Boolean 类型，可读写。此属性与“打印-单色打印”选项对应。 执行代码：Worksheets("Sheet1").PageSetup.BlackAndWhite = True，Sheet1 工作表 将以黑白方式打印。 4、PrintHeadings：如果打印本页时同时打印行标题和列标题，则该值为 True。 仅应用于工作表。Boolean 类型，可读写。此属性与“打印-行号列标”选项对应。 5、PrintComments：返回或设置批注随工作表打印的方式。XlPrintLocation 类型， 可读写。此属性与“打印-批注”选项对应。 名称 值 描述 选项设置值 xlPrintInPlace 16 批注打印在其插入工作表的位置。 如同工作表中的显示 xlPrintNoComments -4142 不打印批注。（默认） （空）
全面认识页面设置之 PageSetup 对象
我们在写 VBA 代码时，特别是做小型程序开发时，经常会用 VBA 来设置 “页面设置”中的选项，还可用要用 VBA 来实现一些特殊的效果，这就需要使 用 PageSteup 对象。PageSetup 对象包含所有页面设置的属性（左边距、底部边 距、纸张大小等）。此对象共有 49 个属性，其中：8 个属性是 EXCEL2007 新添 加的，1 个属性在 2007 中被删除了。 下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无对应选项卡” 五个类别来逐一介绍这 49 个属性：
7、RightMargin：以磅为单位返回或设置右边距的大小。Double 类型，可读写。 此属性与“右”选项对应。 8、LeftMargin：以磅为单位返回或设置左边距的大小。Double 类型，可读写。 此属性与“左”选项对应。 我通过“页面设置”窗体将页面上边距设置成 2，请注意这里的单位是“厘米” （也就是说在“页边距”选项卡中数据的单位是“厘米”），使用录制宏会生成如 下的代码： .TopMargin = Application.InchesToPoints(0.78740157480315) 这段代码并不是我们一般思维的代码写法，为什么不是.TopMargin =2 呢？。原 因就是这 6 个属性的单位都“磅”，那么“磅“又是什么单位呢？磅：指打印的 字符的高度的度量单位。1 磅等于 1/72 英寸（即 1 皮卡），或大约等于 1 厘米 的 1/28。 那么这个“0.78740157480315”又是什么单位呢？答案是：“英寸”。因此需要进 行单位转换，InchesToPoints 方法的作用就是将度量单位从英寸转换为磅。 显然这种写法不符合我们国人的习惯，将“厘米”转换成“英寸”，再转换成“磅”， 直接将“厘米”转换成“磅”不是更方便！我们可以使用 CentimetersToPoints 方 法 就 可 以 实 现 “ 厘 米 ” 直 接 转 “ 磅 ”。 代 码 写 成 ： .TopMargin Application.CentimetersToPoints(2)。
二、与“页边距”选项卡对应的属性有 8 个。分别为：CenterVertically、 CenterHorizontally、TopMargin、BottomMargin、FooterMargin、HeaderMargin、 RightMargin、LeftMargin 1、CenterVertically：如果在页面的垂直居中位置打印指定工作表，则该属性值为 True。Boolean 类型，可读写。此属性与“垂直”选项对应。 Worksheets("Sheet1").PageSetup. CenterVertically = True’将工作表设置成垂直居 中。 2、CenterHorizontally：如果在页面的水平居中位置打印指定工作表，则该属性 值为 True。Boolean 类型，可读写。此属性与“水平”选项对应。 Worksheets("Sheet1").PageSetup.CenterHorizontally = True’将工作表设置成水平 居中。 3、TopMargin：以磅为单位返回或设置上边距的大小。Double 类型，可读写。 此属性与“上”选项对应。 4、BottomMargin：以磅为单位返回或设置底端边距的大小。Double 类型，可读 写。此属性与“下”选项对应。 5、FooterMargin：以磅为单位返回或设置页脚到页面底端的距离。Double 类型， 可读写。此属性与“页脚”选项对应。 6、HeaderMargin：以磅为单位返回或设置页面顶端到页眉的距离。Double 类型， 可读写。此属性与“页眉”选项对应。
三 、 与 “ 页 眉 / 页 脚 ” 选 项 卡 对 应 的 属 性 有 16 个 。 分 别 为 ： OddAndEvenPagesHeaderFooter 、 DifferentFirstPageHeaderFooter 、 ScaleWithDocHeaderFooter 、 AlignMarginsHeaderFooter 、 RightFooter 、 RightFooterPicture 、 CenterFooter 、 CenterFooterPicture 、 LeftFooter 、 LeftFooterPicture 、 RightHeader 、 RightHeaderPicture 、 CenterHeader 、 CenterHeaderPicture、LeftHeader、LeftHeaderPicture 1、OddAndEvenPagesHeaderFooter：如果指定的 PageSetup 对象的奇数页和偶数 页具有不同的页眉和页脚，则为 True。可读/写 Boolean 类型。此属性与“奇偶页 不同”选项对应。 2、DifferentFirstPageHeaderFooter：如果在第一页使用不同的页眉或页脚，则为 True。可读/写 Boolean 类型。此属性与“首页不同”选项对应。
例”选项对应。 输入时不要输入百分号（%），只输入数值就可以了。 5、FitToPagesWide：返回或设置打印工作表时，对工作表进行缩放使用的页宽。 仅应用于工作表。Variant 类型，可读写。此属性与“页高”选项对应。 6、FitToPagesTall：返回或设置打印工作表时，对工作表进行缩放使用的页高。 仅应用于工作表。Variant 类型，可读写。此属性与“页宽”选项对应。 只有 Zoom 属性值为 False 时，FitToPagesWide 和 FitToPagesTall 属性才会起作用， 大家使用的时候请注意。 7、PaperSize：返回或设置纸张的大小。XlPaperSize 类型，可读写。此属性与“纸 张大小”选项对应。