社区应用 社区服务 会员列表 统计排行 帮助 银行
  • 25293阅读
  • 187回复

[世恒][世恒帮您学易]-易语言Excel工作簿方法(对象设置打印)

楼层直达
级别: 管理员
发帖
5032
铜币
197
威望
12
E积分
0
技术积分
0
— 本帖被 世恒 从 易语言俱乐部 移动到本区(2012-05-02) —
刚才有位童鞋打电话问的,所以写了下,大家一起学习。



[世恒帮您学易]-易语言Excel工作簿方法(对象设置打印).e (10 K) 下载次数:1640
本帖最近评分记录: 4 条评分 铜币 +4
45628 铜币 +1 2012-10-02 电话多少!?!!
guo832 铜币 +1 2012-07-16 优秀文章,支持!n神马都是浮云,以后会用到,做个标记
hhjj3388 铜币 +1 2012-04-26 分享是一种美德!
LSL9130 铜币 +1 2012-04-26 顶贴肯定要加分!
http://www.shteach.com  [世恒教育]
世恒教育公开课QQ群号:131167014
发帖
1147
铜币
1654
威望
0
E积分
0
技术积分
0
只看该作者 沙发  发表于: 2012-04-26
沙发。。。
顶世恒老师。。。
级别: 商业用户
发帖
909
铜币
1792
威望
0
E积分
0
技术积分
0
只看该作者 板凳  发表于: 2012-04-26
顶世恒。。。
级别: 管理员
发帖
5032
铜币
197
威望
12
E积分
0
技术积分
0
只看该作者 地板  发表于: 2012-04-26
下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和“无对应选项卡”五个类别来逐一介绍这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"
http://www.shteach.com  [世恒教育]
世恒教育公开课QQ群号:131167014
级别: 管理员
发帖
5032
铜币
197
威望
12
E积分
0
技术积分
0
只看该作者 4楼 发表于: 2012-04-26
序号名称[/td][td=1,1,1995]说明版本选项卡选项备注
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 对象,该对象表示页脚中间部分的图片。用于设置图片的属性。 页眉/页脚自定义页脚-中图片信息
35LeftFooter左对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。 页眉/页脚自定义页脚-左文本信息
36LeftFooterPicture返回一个 Graphic 对象,该对象表示页脚左边的图片。用于设置图片的属性。 页眉/页脚自定义页脚-左图片信息
37RightHeader右对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚自定义页眉-右文本信息
38RightHeaderPicture返回一个 Graphic 对象,该对象表示页眉右边的图片。用于设置图片的属性。 页眉/页脚自定义页眉-右图片信息
39CenterHeader居中对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚自定义页眉-中文本信息
40CenterHeaderPicture返回一个 Graphic 对象,该对象表示页眉中间部分的图片。用于设置图片的属性。 页眉/页脚自定义页眉-中图片信息
41LeftHeader左对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。 页眉/页脚自定义页眉-左文本信息
42LeftHeaderPicture返回一个 Graphic 对象,该对象表示页眉左边的图片。用于设置图片的属性。 页眉/页脚自定义页眉-左图片信息
43PrintQuality返回或设置打印质量。Variant 类型,可读写。 页面打印质量 
44Orientation返回或设置一个 XlPageOrientation 值,它代表纵向或横向打印模式。 页面方向 
45FirstPageNumber返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic,则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型,可读写。 页面起始页码 
46Zoom返回或设置一个 Variant 值,它代表一个数值在 10% 到 400% 之间的百分比,该百分比为 Microsoft Excel 打印工作表时的缩放比例。 页面缩放比例 
47FitToPagesWide返回或设置打印工作表时,对工作表进行缩放使用的页宽。仅应用于工作表。Variant 类型,可读写。 页面缩放-页高 
48FitToPagesTall返回或设置打印工作表时,对工作表进行缩放使用的页高。仅应用于工作表。Variant 类型,可读写。 页面缩放-页宽 
49PaperSize返回或设置纸张的大小。XlPaperSize 类型,可读写。 页面纸张大小 
http://www.shteach.com  [世恒教育]
世恒教育公开课QQ群号:131167014
发帖
2084
铜币
3440
威望
0
E积分
0
技术积分
0
只看该作者 5楼 发表于: 2012-04-26
顶世恒。。。
tzh
级别: 商业用户
发帖
332
铜币
1685
威望
0
E积分
0
技术积分
0

只看该作者 6楼 发表于: 2012-04-26
顶世恒老师
级别: 商业用户
发帖
2232
铜币
762
威望
0
E积分
5
技术积分
5
只看该作者 7楼 发表于: 2012-04-26
排版略奇葩…………………………………………
级别: 幼儿园
发帖
10
铜币
83
威望
0
E积分
0
技术积分
0
只看该作者 8楼 发表于: 2012-04-26
老师好~学习了~
发帖
857
铜币
5260
威望
0
E积分
0
技术积分
0
只看该作者 9楼 发表于: 2012-04-26
世恒的贴精品,顶起来
快速回复

限60 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
认证码:
上一个 下一个