pagesetup属与方法.doc

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).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方法就可以实现“厘米”直接转“磅”。代码写成：.TopMargin Application.CentimetersToPoints(2)。三、 与“页眉/页脚”选项卡对应的属性有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类型。此属性与“首页不同”选项对应。如果属性为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常量，该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。此属性与“打印-错误单元格打印为”选项对应。名称 值 描述 选项设置值xlPrintErrorsBlank 1 打印错误为空白。 xlPrintErrorsDash 2 打印错误显示为划线。 -xlPrintErrorsDisplayed 0 显示全部打印错误。 显示值xlPrintErrorsNA 3 打印错误显示为不可用。 #N/A3、BlackAndWhite：如果指定文档中的元素以黑白方式打印，则该属性值为True。Boolean类型，可读写。此属性与“打印-单色打印”选项对应。执行代码：Worksheets(Sheet1).PageSetup.BlackAndWhite = True，Sheet1工作表将以黑白方式打印。4、PrintHeadings：如果打印本页时同时打印行标题和列标题，则该值为True。仅应用于工作表。Boolean类型，可读写。此属性与“打印-行号列标”选项对应。5、PrintComments：返回或设置批注随工作表打印的方式。XlPrintLocation类型，可读写。此属性与“打印-批注”选项对应。名称 值 描述 选项设置值xlPrintInPlace 16 批注打印在其插入工作表的位置。 如同工作表中的显示xlPrintNoComments -4142 不打印批注。（默认） （空）xlPrintSheetEnd 1 批注打印为工作表末尾的尾注。 工作表末尾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$58、Order：返回或设置一个XlOrder值，它代表MicrosoftExcel打印一张大工作表时所使用的页编号的次序。此属性与“打印顺序”选项对应。名称 值 描述 选项设置值xlDownThenOver 1 向下处理行，然后向右逐个处理页或页面字段。 先列后行xlOverThenDown 2 向右逐个处理页或页面字段，然后向下处理行。 先行后列9、PrintGridlines：如果在页面上打印单元格网格线，则该值为True。仅应用于工作表。Boolean类型，可读写。此属性与“打印-网格线”选项对应。10、PrintTitleRows：返回或设置那些包含在每一页顶部重复出现的单元格的行，用宏语言字符串以A1样式表示法表示。String类型，可读写。此属性与“顶端标题行”选项对应。如果仅指定行的一部分，Microsoft Excel 将把该区域扩展为整个行。将该属性设置为 False 或空字符串 ()，将会关闭标题行。11、PrintTitleColumns：返回或设置包含在每一页的左边重复出现的单元格的列，用宏语言A1-样式中的字符串表示。String类型，可读写。此属性与“左端标题行”选项对应。如果仅指定列的一部分，Microsoft Excel 将自动把该区域扩展为整个列。（加一个例子）将该属性设置为 False 或空字符串 ()，将会关闭标题列。五、 与选项卡无对应关系的属性有7个。分别为：Application、Creator、EvenPage、FirstPage、Pages、Parent、ChartSize。1、Application如果不使用对象识别符，则该属性返回一个Application对象，该对象表示MicrosoftExcel应用程序。如果 使用对象识别符，则该属性返回一个表示指定对象（可对一个OLE自动操作对象使用本属性来返回该对象的应用程序）创建者的Application对象。只 读。执行代码：ActiveSheet.PageSetup.Application.Name，可以返回应用程序的名称“Microsoft Excel”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返回或设置图表为适应页面大小而进行缩放的方式。本示例设置“Chart1”中央标题的文字。Charts(Chart1).PageSetup.CenterHeader = December Sales序号名称说明版本选项卡选项备注1Draft如果打印工作表时不打印其中的图形，则该属性值为 True。Boolean 类型，可读写。工作表打印-草稿品质2PrintErrors设置或返回一个 XlPrintErrors 常量，该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。工作表打印-错误单元格打印为3BlackAndWhite如果指定文档中的元素以黑白方式打印，则该属性值为 True。Boolean 类型，可读写。工作表打印-单色打印4PrintHeadings如果打印本页时同时打印行标题和列标题，则该值为 True。仅应用于工作表。Boolean 类型，可读写。工作表打印-行号列标5PrintComments返回或设置批注随工作表打印的方式。XlPrintLocation 类型，可读写。工作表打印-批注6PrintNotes如果打印工作表时单元格批注作为尾注一起打印，则该值为 True。仅应用于工作表。Boolean 类型，可读写。工作表打印-批注7PrintArea以字符串返回或设置要打印的区域，该字符串使用宏语言的 A1 样式的引用。String 类型，可读写。工作表打印区域8Order返回或设置一个 XlOrder 值，它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。工作表打印顺序9PrintGridlines如果在页面上打印单元格网格线，则该值为 True。仅应用于工作表。Boolean 类型，可读写。工作表打印-网格线10PrintTitleRows返回或设置那些包含在每一页顶部重复出现的单元格的行，用宏语言字符串以 A1 样式表示法表示。String 类型，可读写。工作表顶端标题行11PrintTitleColumns返回或设置包含在每一页的左边重复出现的单元格的列，用宏语言 A1-样式中的字符串表示。String 类型，可读写。工作表左端标题行12Application如 果不使用对象识别符，则该属性返回一个 Application 对象，该对象表示 Microsoft Excel 应用程序。如果使用对象识别符，则该属性返回一个表示指定对象（可对一个 OLE 自动操作对象使用本属性来返回该对象的应用程序）创建者的 Application 对象。只读。无无13Creator返回一个 32 位整数，该整数指示在其中创建此对象的应用程序。只读 Long 类型。无无14EvenPage返回或设置工作簿或节的偶数页上的文本对齐方式。2007无无15FirstPage返回或设置工作簿或节的第一页上的文本对齐方式。2007无无16Pages返回或设置 Pages 集合中的页数。2007无无17Parent返回指定对象的父对象。只读。无无18ChartSize返回或设置图表为适应页面大小而进行缩放的方式。2003无无已删除19CenterVertically如果在页面的垂直居中位置打印指定工作表，则该属性值为 True。Boolean 类型，可读写。页边距居中方式-垂直20CenterHorizontally如果在页面的水平居中位置打印指定工作表，则该属性值为 True。Boolean 类型，可读写。页边距居中方式-水平21TopMargin以磅为单位返回或设置上边距的大小。Double 类型，可读写。页边距上22BottomMargin以磅为单位返回或设置底端边距的大小。Double 类型，可读写。页边距下23FooterMargin以磅为单位返回或设置页脚到页面底端的距离。Double 类型，可读写。页边距页脚24HeaderMargin以磅为单位返回或设置页面顶端到页眉的距离。Double 类型，可读写。页边距页眉25RightMargin以磅为单位返回或设置右边距的大小。Double 类型，可读写。页边距右26LeftMargin以磅为单位返回或设置左边距的大小。Double 类型，可读写。页边距左27OddAndEvenPagesHeaderFooter如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚，则为 True。可读/写 Boolean 类型。2007页眉/页脚奇偶页不同28DifferentFirstPageHeaderFooter如果在第一页使用不同的页眉或页脚，则为 True。可读/写 Boolean 类型。2007页眉/页脚首页不同29ScaleWithDocHeaderFooter返回或设置页眉和页脚是否在文档大小更改时随文档缩放。可读/写 Boolean 类型。2007页眉/页脚随文档自动缩放30AlignMarginsHeaderFooter如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚，则返回 True。可读/写 Boolean 类型。2007页眉/页脚与页边距对齐31RightFooter右对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。页眉/页脚自定义页脚-右文本信息32RightFooterPicture返回一个 Graphic 对象，该对象代表页脚右边的图片，用于设置图片的属性。页眉/页脚自定义页脚-右图片信息33CenterFooter居中对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。页眉/页脚自定义页脚-中文本信息34CenterFooterPicture返回一个 Graphic 对象，该对象表示页脚中间部