Excel页面设置之PageSetup 对象

君飞 2018/4/25 11:06:40 UI 次阅读
 我们在写VBA代码时,特别是做小型程序开发时,经常会用VBA来设置“页面设置”中的选项,还可用要用VBA来实现一些特殊的效果,这就需要使用PageSteup对象。PageSetup 对象包含所有页面设置的属性(左边距、底部边距、纸张大小等)。此对象共有49个属性,其中:8个属性是EXCEL20…}

我们在写VBA代码时,特别是做小型程序开发时,经常会用VBA来设置“页面设置”中的选项,还可用要用VBA来实现一些特殊的效果,这就需要使用PageSteup对象。PageSetup 对象包含所有页面设置的属性(左边距、底部边距、纸张大小等)。此对象共有49个属性,其中:8个属性是EXCEL2007新添加的,1个属性在2007中被删除了。
下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无对应选项卡”五个类别来逐一介绍这49个属性:
一、
与“页面”选项卡对应的属性有7个。分别为:PrintQualityOrientationFirstPageNumberZoomFitToPagesWideFitToPagesTallPaperSize

1PrintQuality:返回或设置打印质量。Variant类型,可读写。此属性与“打印质量”选项对应。
Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)’用数组指定水平和垂直方向的打印质量
Worksheets("Sheet1").PageSetup.PrintQuality(1)=600’指定水平方向的打印质量
Worksheets("Sheet1").PageSetup.PrintQuality(2)=600’指定垂直方向的打印质量
以上示例在使用过程中是否出现错误取决于使用的打印机驱动程序,因为不同打印机能够设置的质量是不同的。
2Orientation:返回或设置一个XlPageOrientation值,它代表纵向或横向打印模式。此属性与“方向”选项对应。
Worksheets("Sheet1").PageSetup.Orientation = xlLandscape’设置模向打印模式
Worksheets("Sheet1").PageSetup.Orientation = xlPortrait’设置纵向打印模式
3FirstPageNumber:返回或设置打印指定工作表时第一页的页号。如果设为xlAutomatic,则MicrosoftExcel采用第一页的页号。默认值为xlAutomaticLong类型,可读写。此属性与“起始页码”选项对应。
可以根据需要设置任意的数据,这样打印出来的报表就不是从第一页开始了的。
4Zoom:返回或设置一个Variant值,它代表一个数值在10%400%之间的百分比,该百分比为MicrosoftExcel打印工作表时的缩放比例。此属性与“缩放比例”选项对应。
输入时不要输入百分号(%),只输入数值就可以了。
5FitToPagesWide:返回或设置打印工作表时,对工作表进行缩放使用的页宽。仅应用于工作表。Variant类型,可读写。此属性与“页高”选项对应。
6FitToPagesTall:返回或设置打印工作表时,对工作表进行缩放使用的页高。仅应用于工作表。Variant类型,可读写。此属性与“页宽”选项对应。
只有Zoom属性值为False时,FitToPagesWideFitToPagesTall属性才会起作用,大家使用的时候请注意。
7PaperSize:返回或设置纸张的大小。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").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/A
3、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=True
PrintComments= xlPrintNoComments等同于 PrintNotes=False
7、PrintArea:以字符串返回或设置要打印的区域,该字符串使用宏语言的A1样式的引用。String类型,可读写。此属性与“打印区域”选项对应。
将该属性设置为 False 或空字符串 (""),可打印整个工作表。
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"
8、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"

 

 

序号 名称 说明 版本 选项卡 选项 备注
1 Draft 如果打印工作表时不打印其中的图形,则该属性值为 True。Boolean 类型,可读写。 工作表 打印-草稿品质
2 PrintErrors 设置或返回一个 XlPrintErrors 常量,该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。 工作表 打印-错误单元格打印为
3 BlackAndWhite 如果指定文档中的元素以黑白方式打印,则该属性值为 True。Boolean 类型,可读写。 工作表 打印-单色打印
4 PrintHeadings 如果打印本页时同时打印行标题和列标题,则该值为 True。仅应用于工作表。Boolean 类型,可读写。 工作表 打印-行号列标
5 PrintComments 返回或设置批注随工作表打印的方式。XlPrintLocation 类型,可读写。 工作表 打印-批注
6 PrintNotes 如果打印工作表时单元格批注作为尾注一起打印,则该值为 True。仅应用于工作表。Boolean 类型,可读写。 工作表 打印-批注
7 PrintArea 以字符串返回或设置要打印的区域,该字符串使用宏语言的 A1 样式的引用。String 类型,可读写。 工作表 打印区域
8 Order 返回或设置一个 XlOrder 值,它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。 工作表 打印顺序
9 PrintGridlines 如果在页面上打印单元格网格线,则该值为 True。仅应用于工作表。Boolean 类型,可读写。 工作表 打印-网格线
10 PrintTitleRows 返回或设置那些包含在每一页顶部重复出现的单元格的行,用宏语言字符串以 A1 样式表示法表示。String 类型,可读写。 工作表 顶端标题行
11 PrintTitleColumns 返回或设置包含在每一页的左边重复出现的单元格的列,用宏语言 A1-样式中的字符串表示。String 类型,可读写。 工作表 左端标题行
12 Application 如果不使用对象识别符,则该属性返回一个 Application 对象,该对象表示 Microsoft Excel 应用程序。如果使用对象识别符,则该属性返回一个表示指定对象(可对一个 OLE 自动操作对象使用本属性来返回该对象的应用程序)创建者的 Application 对象。只读。
13 Creator 返回一个 32 位整数,该整数指示在其中创建此对象的应用程序。只读 Long 类型。
14 EvenPage 返回或设置工作簿或节的偶数页上的文本对齐方式。 2007
15 FirstPage 返回或设置工作簿或节的第一页上的文本对齐方式。 2007
16 Pages 返回或设置 Pages 集合中的页数。 2007
17 Parent 返回指定对象的父对象。只读。
18 ChartSize 返回或设置图表为适应页面大小而进行缩放的方式。 2003 已删除
19 CenterVertically 如果在页面的垂直居中位置打印指定工作表,则该属性值为 True。Boolean 类型,可读写。 页边距 居中方式-垂直
20 CenterHorizontally 如果在页面的水平居中位置打印指定工作表,则该属性值为 True。Boolean 类型,可读写。 页边距 居中方式-水平
21 TopMargin 以磅为单位返回或设置上边距的大小。Double 类型,可读写。 页边距
22 BottomMargin 以磅为单位返回或设置底端边距的大小。Double 类型,可读写。 页边距
23 FooterMargin 以磅为单位返回或设置页脚到页面底端的距离。Double 类型,可读写。 页边距 页脚
24 HeaderMargin 以磅为单位返回或设置页面顶端到页眉的距离。Double 类型,可读写。 页边距 页眉
25 RightMargin 以磅为单位返回或设置右边距的大小。Double 类型,可读写。 页边距
26 LeftMargin 以磅为单位返回或设置左边距的大小。Double 类型,可读写。 页边距
27 OddAndEvenPagesHeaderFooter 如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚,则为 True。可读/写 Boolean 类型。 2007 页眉/页脚 奇偶页不同
28 DifferentFirstPageHeaderFooter 如果在第一页使用不同的页眉或页脚,则为 True。可读/写 Boolean 类型。 2007 页眉/页脚 首页不同
29 ScaleWithDocHeaderFooter 返回或设置页眉和页脚是否在文档大小更改时随文档缩放。可读/写 Boolean 类型。 2007 页眉/页脚 随文档自动缩放
30 AlignMarginsHeaderFooter 如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚,则返回 True。可读/写 Boolean 类型。 2007 页眉/页脚 与页边距对齐
31 RightFooter 右对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。 页眉/页脚 自定义页脚-右 文本信息
32 RightFooterPicture 返回一个 Graphic 对象,该对象代表页脚右边的图片,用于设置图片的属性。 页眉/页脚 自定义页脚-右 图片信息
33 CenterFooter 居中对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。 页眉/页脚 自定义页脚-中 文本信息
34 CenterFooterPicture 返回一个 Graphic 对象,该对象表示页脚中间部分的图片。用于设置图片的属性。 页眉/页脚 自定义页脚-中 图片信息
35 LeftFooter 左对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。 页眉/页脚 自定义页脚-左 文本信息
36 LeftFooterPicture 返回一个 Graphic 对象,该对象表示页脚左边的图片。用于设置图片的属性。 页眉/页脚 自定义页脚-左 图片信息
37 RightHeader 右对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚 自定义页眉-右 文本信息
38 RightHeaderPicture 返回一个 Graphic 对象,该对象表示页眉右边的图片。用于设置图片的属性。 页眉/页脚 自定义页眉-右 图片信息
39 CenterHeader 居中对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚 自定义页眉-中 文本信息
40 CenterHeaderPicture 返回一个 Graphic 对象,该对象表示页眉中间部分的图片。用于设置图片的属性。 页眉/页脚 自定义页眉-中 图片信息
41 LeftHeader 左对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚 自定义页眉-左 文本信息
42 LeftHeaderPicture 返回一个 Graphic 对象,该对象表示页眉左边的图片。用于设置图片的属性。 页眉/页脚 自定义页眉-左 图片信息
43 PrintQuality 返回或设置打印质量。Variant 类型,可读写。 页面 打印质量
44 Orientation 返回或设置一个 XlPageOrientation 值,它代表纵向或横向打印模式。 页面 方向
45 FirstPageNumber 返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic,则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型,可读写。 页面 起始页码
46 Zoom 返回或设置一个 Variant 值,它代表一个数值在 10% 到 400% 之间的百分比,该百分比为 Microsoft Excel 打印工作表时的缩放比例。 页面 缩放比例
47 FitToPagesWide 返回或设置打印工作表时,对工作表进行缩放使用的页宽。仅应用于工作表。Variant 类型,可读写。 页面 缩放-页高
48 FitToPagesTall 返回或设置打印工作表时,对工作表进行缩放使用的页高。仅应用于工作表。Variant 类型,可读写。 页面 缩放-页宽
49 PaperSize 返回或设置纸张的大小。XlPaperSize 类型,可读写。 页面 纸张大小

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































0
Copyright © 2007-2016 kinfar.net studio,All Rights Reserved.