全面认识页面设置之PageSetup对

全面认识页面设置之PageSetup对象我们在写VBA代码时，特别是做小型程序开发时，经常会用VBA来设置“页面设置”中的选项，还可用要用VBA来实现一些特殊的效果，这就需要使用PageSteup对象。PageSetup对象包含所有页面设置的属性(左边距、底部边距、纸张大小等)。此对象共有49个属性，其中：8个属性是EXCEL2007新添加的，1个属性在2007中被删除了。下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无对应选项卡”五个类别来逐一介绍这49个属性：一、与“页面”选项卡对应的属性有7个。分别为：PrintQuality、Orientation、FirstPageNumber、Zoom、FitToPagesWide、FitToPagesTall、PaperSize。1、PrintQuaHty：返回或设置打印质量。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打印工作表时的缩放比例。此属性与“缩放比例”选项对应。输入时不要输入百分号(%)，只输入数值就可以了。5、FitToPagesWide：返回或设置打印工作表时，对工作表进行缩放使用的页宽。仅应用于工作表。Variant类型，可读写。此属性与“页高”选项对应。6、FitToPagesTall：返回或设置打印工作表时，对工作表进行缩放使用的页高。仅应用于工作表。Variant类型，可读写。此属性与“页宽”选项对应。只有Zoom属性值为False时，FitToPagesWide和FitToPagesTall属性才会起作用，大家使用的时候请注意。7、PaperSize：返回或设置纸张的大小。XlPaperSize类型，可读写。此属性与“纸张大小”选项对应。二、与“页边距”选项卡对应的属性有8个。分别为：CenterVertically、CenterHorizontally、TopMargin、BottomMargin、FooterMargin、HeaderMargin、RightMargin、LeftMargin1、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类型，可读写。此属性与“页眉”选项对应。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方法就可以实现“厘米”直接转“磅”。代码写成：.TopMarginApplication.CentimetersToPoints(2)。三、与“页眉/页脚”选项卡对应的属性有16个。分别为：OddAndEvenPagesHeaderFooter、DifferentFirstPageHeaderFooter、ScaleWithDocHeaderFooter、AlignMarginsHeaderFooter、RightFooter、RightFooterPicture、CenterFooter、CenterFooterPicture、LeftFooter、LeftFooterPicture、RightHeader、RightHeaderPicture、CenterHeader、CenterHeaderPicture、LeftHeader、LeftHeaderPicture1、OddAndEvenPagesHeaderFooter：如果指定的PageSetup对象的奇数页和偶数页具有不同的页眉和页脚，则为True。可读/写Boolean类型。此属性与“奇偶页不同”选项对应。2、DifferentFirstPageHeaderFooter：如果在第一页使用不同的页眉或页脚，则为True。可读/写Boolean类型。此属性与“首页不同”选项对应。如果属性为TRUE,则无法选择系统设置的页眉/页脚样式。需要使用FirstPage属性设置第一页的页眉/页脚。3、ScaleWithDocHeaderFooter：返回或设置页眉和页脚是否在文档大小更改时随文档缩放。可读/写Boolean类型。此属性与“随文档自动缩放”选项对应。4、AlignMarginsHeaderFooter：如果Excel以页面设置选项中设置的边距对齐页眉和页脚，则返回True。可读/写Boolean类型。此属性与“与页边距对齐”选项对应。5、RightFooter：右对齐PageSetup对象中的页脚信息。可读/写String类型。可读/写String类型。此属性与“自定义页脚-右”选项对应。6、RightFooterPicture：返回一个Graphic对象，该对象代表页脚右边的图片，用于设置图片的属性。此属性与“自定义页脚-右”选项对应。7、CenterFooter：居中对齐PageSetup对象中的页脚信息。可读/写String类型。此属性与“自定义页脚-中”选项对应。8、CenterFooterPicture:返回一个Graphic对象，该对象表示页脚中间部分的图片。用于设置图片的属性。此属性与“自定义页脚-右”选项对应。9、LeftFooter：左对齐PageSetup对象中的页脚信息。可读/写String类型。此属性与“自定义页脚-左”选项对应。10、LeftFooterPicture：返回一个Graphic对象，该对象表示页脚左边的图片。用于设置图片的属性。此属性与“自定义页脚-左”选项对应。11、RightHeader：右对齐PageSetup对象中的页眉信息。可读/写String类型。此属性与“自定义页眉-右”选项对应。12、RightHeaderPicture:返回一个Graphic对象，该对象表示页眉右边的图片。用于设置图片的属性。。此属性与“自定义页眉-右”选项对应。13、CenterHeader：居中对齐PageSetup对象中的页眉信息。可读/写String类型。此属性与“自定义页眉-中”选项对应。14、CenterHeaderPicture：返回一个Graphic对象，该对象表示页眉中间部分的图片。用于设置图片的属性。此属性与“自定义页眉-中”选项对应。15、LeftHeader：左对齐PageSetup对象中的页眉信息。可读/写String类型。此属性与“自定义页眉-左”选项对应。16、LeftHeaderPicture：返回一个Graphic对象，该对象表示页眉左边的图片。用于设置图片的属性。此属性与“自定义页眉-左”选项对应。以上对属性的说明与EXCEL的帮助不完全相同，因为经过测试帮助中的一些说明是有错误。四、与“工作表”选项卡对应的属性有11个。分别为：Draft、PrintErrors、BlackAndWhite、PrintHeadings、PrintComments、PrintNotes、PrintArea、Order、PrintGridlines、PrintTitleRows、PrintTitleColumns。1、Draft：如果打印工作表时不打印其中的图形，则该属性值为True。Boolean类型，可读写。此属性与“打印-草稿品质”选项对应。将该属性设置为True可加快打印速度（但是不打印其中的图形）。2、PrintErrors：设置或返回一个XlPrintErrors常量，该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。此属性与“打印-错误单元格打印为”选项对应。名称值描述选项设置值xlPrintErrorsBlank1打印错误为空白。＜空白＞xlPrintErrorsDash2打印错误显示为划线。--xlPrintErrorsDisplayed0显示全部打印错误。显示值xlPrintErrorsNA3打印错误显示为不可用。#N/A3、BlackAndWhite：如果指定文档中的元素以黑白方式打印，则该属性值为True。Boolean类型，可读写。此属性与“打印-单色打印”选项对应。执行代码：Worksheets（"Sheet1"）.PageSetup.BlackAndWhite=True，Sheet1工作表将以黑白方式打印。4、PrintHeadings：如果打印本页时同时打印行标题和列标题，则该值为True。仅应用于工作表。Boolean类型，可读写。此属性与“打印-行号列标”选项对应。5、PrintComments：返回或设置批注随工作表打印的方式。XlPrintLocation类型，可读写。此属性与“打印-批注”选项对应。名称值描述选项设置值xlPrintInPlace16批注打印在其插入工作表的位置。如同工作表中的显示xlPrintNoComments-4142不打印批注。（默认）（空）xlPrintSheetEnd1批注打印为工作表末尾的尾注。工作表末尾6、PrintNotes：如果打印工作表时单元格批注作为尾注一起打印，则该值为True。仅应用于工作表。Boolean类型，可读写。此属性与“打印-批注”选项对应。此属性设置为True与PrintComments属性设置为xlPrintSheetEnd效果相同。此属性设置为False与PrintComments属性设置为xlPrintNoComments效果相同。即：PrintComments=xlPrintSheetEnd等同于PrintNotes=TruePrintComments=xlPrintNoComments等同于PrintNotes=False7、PrintArea：以字符串返回或设置要打印的区域，该字符串使用宏语言的A1样式的引用。String类型，可读写。此属性与“打印区域”选项对应。将该属性设置为False或空字符串("")，可打印整个工作表。Worksheets("Sheet1").PageSetup.PrintArea="$A$1:$C$5"8、Order：返回或设置一个XlOrder值，它代表MicrosoftExcel打印一张大工作表时所使用的页编号的次序。此属性与“打印顺序”选项对应。名称值描述选项设置值xlDownThenOver1向下处理行，然后向右逐个处理页或页面字段。先列后行xlOverThenDown2向右逐个处理页或页面字段，然后向下处理行。先行后列9、PrintGridlines：如果在页面上打印单元格网格线，则该值为True。仅应用于工作表。Boolean类型，可读写。此属性与“打印-网格线”选项对应。10、PrintTitleRows：返回或设置那些包含在每一页顶部重复出现的单元格的行，用宏语言字符串以A1样式表示法表示。String类型，可读写。此属性与“顶端标题行”选项对应。如果仅指定行的一部分，MicrosoftExcel将把该区域扩展为整个行。将该属性设置为False或空字符串("")，将会关闭标题行。11、PrintTitleColumns：返回或设置包含在每一页的左边重复出现的单元格的列，用宏语言A1-样式中的字符串表示。String类型，可读写。此属性与“左端标题行”选项对应。如果仅指定列的一部分，MicrosoftExcel将自动把该区域扩展为整个列。(加一个例子)将该属性设置为False或空字符串("")，将会关闭标题列。!-!-!-!-五、与选项卡无对应关系的属性有7个。分别为：Application、Creator、EvenPage、FirstPage、Pages、Parent、ChartSize。1、Application如果不使用对象识别符，则该属性返回一个Application对象，该对象表示MicrosoftExcel应用程序。如果使用对象识别符，则该属性返回一个表示指定对象（可对一个OLE自动操作对象使用本属性来返回该对象的应用程序）创建者的Application对象。只读。执行代码：ActiveSheet.PageSetup.Application.Name，可以返回应用程序的名称“MicrosoftExcel”2、Creator返回一个32位整数，该整数指示在其中创建此对象的应用程序。只读Long类型。执行代码：ActiveSheet.PageSetup.Creator，返回数字1480803660，相当于十六进制的5843454C，即XCEL的ACSII码组合。微软拥有创建XCEL的代码。3、EvenPage返回或设置工作簿或节的偶数页上的文本对齐方式。EvenPage.LeftHeader.Text设置偶页的左页眉EvenPage.CenterHeader.Text设置偶页的中页眉EvenPage.RightHeader.Text设置偶页的右页眉EvenPage.LeftFooter.Text设置偶页的左页脚EvenPage.CenterFooter.Text设置偶页的中页脚EvenPage.RightFooter.Text设置偶页的右页脚4、FirstPage返回或设置工作簿或节的第一页上的文本对齐方式。FirstPage.LeftHeader.Text设置第一页的左页眉FirstPage.CenterHeader.Text设置第一页的中页眉FirstPage.RightHeader.Text设置第一页的右页眉FirstPage.LeftFooter.Text设置第一页的左页脚FirstPage.CenterFooter.Text设置第一页的中页脚FirstPage.RightFooter.Text设置第一页的右页脚5、Pages返回或设置Pages集合中的页数。Pages.Count代表工作表打印的页面数量。6、Parent返回指定对象的父对象。只读。

代表PageSetup的父对象，也就是WorSheet对象。运行代码：ActiveSheet.PageSetup.Parent.Name，获得当前工作表的名称。7、ChartSize返回或设置图表为适应页面大小而进行缩放的方式。本示例设置“Chartl”中央标题的文字。Charts("Chart1").PageSetup.CenterHeader="DecemberSales"序号名称说明选备版本卡项项注打1Draft如果打印工作表时不打印其中的图形，则该属性值为True。Boolean类型，可读写。印工-作草表稿品质打PrintErrorsBlackAndWhite设置或返回一个XlPrintErrors常量，该常

量指定显示的打印错误类

型。该功能允许用户在打印

工作表时取消错误显示。可

读写。如果指定文档中的元素以

黑白方式打印，则该属性值为True。Boolean类型，

可读写。印-错误单元格打印为打印-单色PrintHeadings打工印作-表行PrintHeadings打工印作-表行号如果打印本页时同时打印

行标题和列标题，则该值为

True。仅应用于工作表。

Boolean类型，可读写。5PrintComments6PrintNotes7PrintArea8Order9PrintGridlines10PrintTitleRows11PrintTitleColumns12Application返回或设置批注随工作表打印的方式。XlPrintLocation类型，可读写。如果打印工作表时单元格批注作为尾注一起打印，则该值为True。仅应用于工作表。Boolean类型，可读写。以字符串返回或设置要打印的区域，该字符串使用宏语言的A1样式的引用。String类型，可读写。返回或设置一个XlOrder值，它代表MicrosoftExcel打印一张大工作表时所使用的页编号的次序。如果在页面上打印单元格

网格线，则该值为True。

仅应用于工作表。Boolean

类型，可读写。返回或设置那些包含在每一页顶部重复出现的单元格的行，用宏语言字符串以A1样式表示法表示。String类型，可读写。

返回或设置包含在每一页

的左边重复出现的单元格

的列，用宏语言A1-样式中

的字符串表示。String类

型，可读写。如果不使用对象识别符，则

该属性返回一个Application对象，该对象表示MicrosoftExcel应用程序。如果使用对象识别符，则该属性返回一个表示指定对象（可对一个OLE工作表工作表工作表工作表工作表工作表工作表列标打印-批注打印-批注打印区域打印顺序打印-网格线顶端标题行左端标题行无131415161718192021222324CenterHorizontallyTopMarginBottomMarginFooterMarginHeaderMargin如果在页面的水平居中位CenterHorizontallyTopMarginBottomMarginFooterMarginHeaderMargin如果在页面的水平居中位

置打印指定工作表，则该属

性值为True。Boolean类

型，可读写。以磅为单位返回或设置上

边距的大小。Double类型，

可读写。以磅为单位返回或设置底

端边距的大小。Double类

型，可读写。以磅为单位返回或设置页

脚到页面底端的距离。

Double类型，可读写。

以磅为单位返回或设置页页方边式距-水上下页脚页页边距页边距页边距页自动操作对象使用本属性来返回该对象的应用程序）创建者的Application对象。只读。返回一个32位整数，该整Creator数指示在其中创建此对象的应用程序。只读Long类无无型。EvenPage返回或设置工作簿或节的偶数页上的文本对齐方式。2007无无FirstPage返回或设置工作簿或节的第一页上的文本对齐方式。2007无无Pages返回或设置Pages集合中的页数。2007无无Parent返回指定对象的父对象。只读。无无ChartSize返回或设置图表为适应页面大小而进行缩放的方式。已2003无无删除居CenterVertically如果在页面的垂直居中位置打印指定工作表，则该属中页方性值为True。Boolean类型，可读写。边式距-

面顶端到页眉的距离。Double类型，可读写。以磅为单位返回或设置右25RightMargin边距的大小。Double类型，可读写。以磅为单位返回或设置左26LeftMargin边距的大小。Double类型，可读写。如果指定的PageSetup对

象的奇数页和偶数页具有27OddAndEvenPagesHeaderFooter不同的页眉和页脚，则为2007True。可读/写Boolean类型。如果在第一页使用不同的28DifferentFirstPageHeaderFooter页眉或页脚，则为True。2007可读/写Boolean类型。29ScaleWithDocHeaderFooter30AlignMarginsHeaderFooter31RightFooter32RightFooterPicture返回或设置页眉和页脚是

否在文档大小更改时随文

档缩放。可读/写Boolean29ScaleWithDocHeaderFooter30AlignMarginsHeaderFooter31RightFooter32RightFooterPicture如果Excel以页面设置选

项中设置的边距对齐页眉

和页脚，则返回True。可

读/写Boolean类型。右对齐PageSetup对象中的页脚信息。可读/写String类型。文本信息图片信息眉右左奇偶页不同首页不同随文档自动缩放与页边距对齐自定义页脚-右自定义页脚边距页边距页边距页眉/页脚页眉/页脚页眉/页脚页眉/页脚页眉/页脚页眉/页脚返回一个Graphic对象，该对象代表页脚右边的图片，用于设置图片的属性。文本信息图片信息眉右左奇偶页不同首页不同随文档自动缩放与页边距对齐自定义页脚-右自定义页脚边距页边距页边距页眉/页脚页眉/页脚页眉/页脚页眉/页脚页眉/页脚页眉/页脚33CenterFooter居中对齐PageSetup对象

中的页脚信息。可读/写String类型。页眉/页脚34CenterFooterPicture返回一个