-
4
月微软
MVP
申请开
始!
点击了解英特尔云计
算
2012
年<
/p>
1
月当选微软
MVP
的
CSDN
会员名单揭晓!
全面认识页面设置之
PageSetup
对象
分类:
[Microsoft] -
[vba]
2011-10-28 12:52
73
人阅读
评论
(0)
收藏
举
报
<
/p>
我们在写
VBA
代码时,特别是做小型程
序开发时,经常会用
VBA
来设置“页面
设置”中的选项,还可用要用
VBA
来实现一些特殊的效果,
这就需要使用
PageSteup
对象。
PageSetup
对象包含所有页面设置的属性(左边距、底部边距、
纸张大小等)。此对象共有
49
个属性,其中:<
/p>
8
个属性是
EXCEL2007
新添加的,
1
个属性在
2007
中被删除了。
下面我按照“
页面”、“页边距”、“页眉
/
页脚”、“工作表”和“无对应
选
项卡”五个类别来逐一介绍这
49
个
属性:
一、
与“页面”选项卡对应的属性有
7
个。分别为:
PrintQuality
、
Orientatio
n
、
FirstPageNumber
、
Zoom
、
FitToPagesW
ide
、
FitToPagesTall
、
PaperSize
。
1
、
PrintQuality
:返回或设置打印质量。
Variant
类型,可读写
。此属性与“打印
质量”选项对应。
Worksheets(
用数组指定水平和
垂直方向的打印质量
Worksheets(
指定水平方
向的打印质量
Worksheets(
指定垂直方向的打印质量
以上示例在使用过程中是否出现错
误取决于使用的打印机驱动程序,
因为不同打
印机能够设置的质
量是不同的。
2
、
< br>Orientation
:
返回或设置一个
XlPageOrientation
值,
它代表纵
向或横向打印模
式。此属性与“方向”选项对应。
Worksheets(
设置模向打印模式
p>
Workshe
ets(
设置纵向打印模式
3
、
Fir
stPageNumber
:返回或设置打印指定工作表时第一页的页号。如果设为
p>
xlAutomatic
,则
Micros
oftExcel
采用第一页的页号。默认值为
xlAutom
atic
。
Long
类型,可读写。此
属性与“起始页码”选项对应。
可以根据需要设置任意的数据
,这样打印出来的报表就不是从第一页开始了的。
4
、
Zoom
:返回或设置一个
< br>Variant
值,它代表一个数值在
10%
到
400%
之间的百
分比
,该百分比为
MicrosoftExcel
打印工作表时的缩
放比例。此属性与“缩放比
例”选项对应。
< br>输入时不要输入百分号(
%
),只输入数值就可以了。<
/p>
5
、
FitT
oPagesWide
:返回或设置打印工作表时,对工作表进行缩放使用的页宽。
p>
仅应用于工作表。
Variant
类型,可
读写。此属性与“页高”选项对应。
6
、
FitToPagesTall
:返回或设置打印工作表时
,对工作表进行缩放使用的页高。
仅应用于工作表。
Varia
nt
类型,可读写。此属性与“页宽”选项对应。
只有
Zoom
属性值为
F
alse
时,
FitToPagesWide
< br>和
FitToPagesTall
属性才会起作用,
p>
大家使用的时候请注意。
7
、
PaperSize
:返回或设置纸张的大小。<
/p>
XlPaperSize
类型,可读写。此属性与“纸张大小”<
/p>
选项对应。
二、
与“页边距”选项卡对应的属性
有
8
个。分别为:
CenterVer
tically
、
CenterHorizontally
p>
、
TopMargin
、
< br> BottomMargin
、
FooterMargi
n
、
HeaderMargin
、
p>
RightMargin
、
LeftMar
gin
1
、
CenterVerti
cally
:如果在页面的垂直居中位置打印指定工作表,则该属性值为
True
。
Boolean
类
型,可读写。此属性与“垂直”选项对应。
Worksheets(
CenterVertically
=
True
’将工作表设置成垂直居中。
2
、
CenterHorizonta
lly
:
如果在页面的水平居中位置打印指定工作表,
则该属性值为
True
。
Boolean
类型,可读写。此属性与“水平”选项对应。
Worksheets(
=
True
’
将工作表设置成水平居中。
3
、
TopMargin
:
以磅为单位返回或设置上边距的大小。
Double
p>
类型,
可读写。
此属性与
< br>“上”
选项对应。
4
、
BottomMargin
:以磅为单位返回
或设置底端边距的大小。
Double
类型,可读写。此属性<
/p>
与“下”选项对应。
5
、
FooterMargin
:以磅为单位返回或设置
页脚到页面底端的距离。
Double
类型,可读写。
此属性与“页脚”选项对应。
6
、
HeaderMargin
:以磅为单位返回或设
置页面顶端到页眉的距离。
Double
类型,可读写。
此属性与“页眉”选项对应。
7
、
RightMargin
:以磅为单位返回或设
置右边距的大小。
Double
类型,可读写。此属性与
“右”选项对应。
8
、
LeftMargin
:
以磅为单
位返回或设置左边距的大小。
Double
类型,
可读写。
此属性与
“左”
选
项对应。
我通过“页面设置”窗体将页面上边距设置成
2
,请注意这里的单位是“厘米”(也就是说
在“页边距”选项卡中数据的单位是“厘米”),使用录制宏会生成如下的代码:
.TopMargin = ToPoints(0.7874)
这段代码并不是我们一般思维的代码写法,为什么不是
.TopMargin =2
呢?。原因就是这
6
个属性的单位都<
/p>
“磅”
,
那么
“
磅
“又是什么单位呢?磅:
指打印的字符的高度的度量单位。<
/p>
1
磅等于
1/72
英寸(即
1
皮卡),或大约等于
1
厘米的
1/28
。
那么这个“
0.7874
”又是什么单位呢?答案是:
“英寸”
。因此需要进行单位转
换,
InchesToPoints
p>
方法的作用就是将度量单位从英寸转换为磅。
显然这种写法不符合我们国人的习惯,将“厘米”转换成“英寸”,再转换成“磅”,直接
< br>将“厘米”转换成“磅”不是更方便!我们可以使用
CentimetersT
oPoints
方法就可以实
现“厘米”直接转“磅”。代码写
成:
.TopMargin
etersToPoints(2)
。
三、
与“页眉
/
页脚”选项卡对应的属性有
16
个。分别为:
OddAndEvenPagesHeaderFooter
、
DifferentFirstPageHeaderFo
oter
、
ScaleWithDocHeaderFoote
r
、
AlignMarginsHeaderFooter<
/p>
、
RightFooter
、
RightFooterPicture
、
Cen
terFooter
、
CenterFooterPictu
re
、
LeftFooter
、
LeftFooterPicture
、
Ri
ghtHeader
、
RightHeaderPictur
e
、
CenterHeader
、
p>
CenterHeaderPicture
、
LeftHeader
、
LeftHeaderPicture
1
、
OddAndEvenPagesHeaderFooter
:
如果指定的
PageSetup
对象的奇数页和偶数<
/p>
页具有不同的页眉和页脚,则为
True
。可读
/
写
Boolean
类型。此属性与“奇偶
页不同”选项对应。
p>
2
、
DifferentFirstPag
eHeaderFooter
:如果在第一页使用不同的页眉或页脚,
< br>则为
True
。可读
/
写
Boolean
类型。此属性与“首页不同”
选项对应。
如果属性为
TRUE
p>
,则无法选择系统设置的页眉
/
页脚样式。
需要使用
FirstPage
属性设置第一页的页眉
/
页脚。
3
、
ScaleWithDocHeaderFooter
< br>:返回或设置页眉和页脚是否在文档大小更改时
随文档缩放。可读
/
写
Boolean
类型。此
属性与“随文档自动缩放”选项对应。
4
、
AlignMarginsHeaderFooter
:
如果
Excel
以页面设置选项中设置的边距对齐
页眉和页脚,则返回
True
。可读
/
写
Boolean
类型。此
属性与“与页边距对齐”
选项对应。
5
、
RightFooter
:
右对齐
PageSetup
对象中的页脚
信息。
可读
/
写
String
类型。
可读
/
p>
写
String
类型。此属性与“自定义页
脚
-
右”选项对应。
6
、
RightFooterPicture
:
返回一个
Graphic
对象,
该对象代表页脚右边的图片,
用于设置图片的属性。
此属性与“自定义页脚
-
右”选项对应。
7
、
CenterFooter<
/p>
:居中对齐
PageSetup
对象中的
页脚信息。可读
/
写
String
p>
类
型。此属性与“自定义页脚
-
中”选项对应。
8
、<
/p>
CenterFooterPicture
:
返回一个
Graphic
对象,
该
对象表示页脚中间部分的
图片。用于设置图片的属性。此属性与“自定义页脚
-
右”选项对应。
9<
/p>
、
LeftFooter
:
左对齐
PageSetup
对象中的页脚信息。
可读
/
写
String
类型。
此属性与“自定义页脚
< br>-
左”选项对应。
10
、
LeftFooterPicture
:<
/p>
返回一个
Graphic
对象,
该对象表示页脚左边的图片。
用于设置图片的属性。此属性与“自定义页
脚
-
左”选项对应。
11
、
RightHeader
:右对齐
PageSetup
对象中的页眉信息。可读<
/p>
/
写
String
< br>类
型。此属性与“自定义页眉
-
右”选项对应。
12
、
RightHeaderPicture
:返回一个
Graphic
对象,该对象表示页眉右边的图
片。用于设置
图片的属性。。此属性与“自定义页眉
-
右”选项对应。
13
、
Cente
rHeader
:居中对齐
PageSetup
对象中的页眉信息。可读
/
写
String
类型。此属性与“自定义页眉
-
< br>中”选项对应。
14
、
CenterHeaderPicture
:返回一个
Graphic
对象,该对象表示页眉中间部分
的图片
。用于设置图片的属性。此属性与“自定义页眉
-
中”选项对应
。
15
、
L
eftHeader
:
左对齐
PageSetup
对象中的页眉信息。
可读
/
写
String
类型。
此属性与“自定义页眉
-
左”选项对应
。
16
、
L
eftHeaderPicture
:
返回一个
Graphic
对象,
该对象表示页眉左边的图片。<
/p>
用于设置图片的属性。此属性与“自定义页眉
-
< br>左”选项对应。
以上对属性的说明与
< br>EXCEL
的帮助不完全相同,
因为经过测试帮助中的一
些说明
是有错误。
四、
与“工作表”选
项卡对应的属性有
11
个。分别为:
D
raft
、
PrintErrors
、
BlackAndWhite
、
Pri
ntHeadings
、
PrintComments
、
PrintNotes
、
< br>PrintArea
、
Order
、
PrintGridlines
、
PrintTitleRows
、
PrintTitleColumns
。
1
、
Draft
:如果打印工作表
时不打印其中的图形,则该属性值为
True
。
Boolean
类型,可读写。此属性与“打印
-
p>
草稿品质”选项对应。
将该属性设置为
True
可加快打印速度(但是不打印其中的图形)。
2
、
PrintErrors
:
设置或返回一个
XlPrintErrors
常量,
该常量指定显示的打印
错误类型。
该功能允许用户在打印工作表时取消错误显示。
可读写。
此属性与“打
印
-
错误单元格打印
为”选项对应。
名称
值
描述
选项设置值
xlPrintErrorsBlank 1
打印错误为空白。
<
空白
>
xlPrintErrorsDash 2
打印错误显示为划线。
--
xlPrintErrorsDisplayed 0
显示全部打印错误。
显示
值
xlPrintErrorsNA 3
打印错误显示为不可用。
#N/A
3
、
BlackAndWhite
:
如果指定文档中的元素以黑白方式打印,
则该属性
值为
True
。
Boolean
类型,可读写。此属性与“打印
-
单色打印”
选项对应。
执行代码:
Worksh
eets(
,
Sheet1
工作表将以
黑白方式打印。
4
、
PrintHeadings
:如果打印本页时同时打印行标题和列标题,则该
值为
True
。
仅应用于工作表。
p>
Boolean
类型,可读写。此属性与“打印
-
行号列标”选项对
应。
5
、
PrintComments
:返回或设置批注随工作表打印的方式。
XlPrintLocation
类
型,可读写。此属性与“打印
-
p>
批注”选项对应。
名称
值
描述
选项设置值
xlPrintInPlace 16
批注打印在其插入工作表的位
置。
如同工作表中的显示
xlPrintNoComments -4142
不打印批注。
(默认)
(空)
xlPrintSheetEnd 1
批注打印为工作表末尾的尾注。
工
作表末尾
6
、
PrintNotes
:如果打印
工作表时单元格批注作为尾注一起打印,则该值为
True
。仅
应用于工作表。
Boolean
类型,可读写。此属性与“打印
-
批注”选项
对应。
< br>
此属性设置为
True
与
p>
PrintComments
属性设置为
xlPrintSheetEnd
效果相同。
此属性设置为
p>
False
与
PrintComments
属性设置为
xlPrintNoComments
效果相
同。即:
PrintComments=xlPrintSheetEnd
等同于
PrintNotes=True
PrintComments=
xlPrintNoComments
等同于
PrintNotes=False
7
、
PrintArea
:以字符串返回或设置要打印的区域,该字符串使用宏语言的<
/p>
A1
样式的引用。
String
类型,可读写。此属性与“打印区域”选项对应。
将该属性设置为
False
或空字符串
(
,可打印整个工作表。
Works
heets(
8
、
Order
:返回或设置一个
XlOrder
值,它代表<
/p>
MicrosoftExcel
打印一张大工
作表时所使用的页编号的次序。此属性与“打印顺序”选项对应。
名称
值
描述
选项设置值
xlDownThenOver 1
< br>向下处理行,然后向右逐个处理页或页面字
段。
先列后行
xlOverThenDown 2
< br>向右逐个处理页或页面字段,然后向下处理
行。
先行后列
9
、
PrintGridlines
:如果在页面上打印单元格网
格线,则该值为
True
。仅应用
于工
作表。
Boolean
类型,可读写。此属性与“打印
-
网格线”选项对应。
10
、
PrintTitleRows
:
返回或设置那些包含在每一页顶部重复出现的单元格的行,
用宏语言字符串以
A1
样式表示法表示。
String
类型,可读写。此属性与“顶端
标题行”选项对
应。
如果仅指定行的一部分,
Microsoft
Excel
将把该区域扩展为整个行。将该属性
设置为
False
或空字符串
(
,将会关闭标题行。
11
、
PrintTitleColumns
:返回
或设置包含在每一页的左边重复出现的单元格的
列,
用宏语言<
/p>
A1-
样式中的字符串表示。
Strin
g
类型,
可读写。
此属性与“左端
p>
标题行”选项对应。
如果仅指定列的一部分,
Microsoft
Excel
将自动把该区域扩展为整个列。
< br>(加
一个例子)将该属性设置为
False
或空字符串
(
,将会关闭标题列。
五、
与选项卡无对应
关系的属性有
7
个。
分别为:
Application
、
Creator
p>
、
EvenPage
、
FirstPage
、
Pages
、
Parent
、
ChartSize
。
1
、
p>
Application
如果不使用对象识别符,则该属性返回一个
Application
对象,
该对象
表示
MicrosoftExcel
应用程序。
如果
使用对象识别符,
则该
属性返回一
个表示指定对象
(可对一个
OLE
自动操作对象使用本属性来返回该对象的应用程
序)创建
者的
Application
对象。只
读。
执行代码:
,
可以返回应用程序的名
称“Mi
crosoft Excel”
2
、
Creator
返回一个
32
位整数,该整数指示在其中创建此对象的应用程序。只
读
Long
类型。
执行代码:
r
,返回数字
1480803660<
/p>
,相当于十
六进制的
5843454C<
/p>
,即
XCEL
的
ACSII
码组合。微软拥有创建
XCEL
的代码。
3
、
< br>EvenPage
返回或设置工作簿或节的偶数页上的文本对齐方式。
设置偶页的左页眉
设置偶页的中页眉
设置偶页的右页眉
设置偶页的左页脚
设置偶页的中页脚
设置偶页的右页脚
4
、
FirstPage
返回或设置工作簿或节的第一
页上的文本对齐方式。
设置第一页的左页眉
设置第一页的中页眉
设置第一页的右页眉
设置第一页的左页脚
设置第一页的中页脚
设置第一页的右页脚
5
、
Pages
返回或设置
P
ages
集合中的页数。
代表工作表打印的页面数量。
6
、
Parent
返
回指定对象的父对象。只读。
代表
P
ageSetup
的父对象,也就是
WorSheet
对象。运行代码:
,获得当前工作表的名称。<
/p>
7
、
Char
tSize
返回或设置图表为适应页面大小而进行缩放的方式。
本示例设置“Chart1”中央标题的文字。
Charts(
序
号
名称
1
Draft
2
PrintErrors
3
BlackAndWhite
4
PrintHeadings
5
PrintComments
选
说明
版本
项
选<
/p>
备
卡
项
注
p>
打
如果打印工作表时不打印
印
其中的图形,则该属性值
工
-
为
True
。
Boolean
类型,
作
草
可读写。
表
稿
品
质
p>
打
印
设置或返回一个
-
XlPrintErrors
常量,该
错
常量指定显示的打印错误
工
误
类型。该功能允许用户在
作
单
打印工作表时取消错误显
表
元
示。可读写。
格
打
印
为
打
如果指定文档中的元素以
印
黑白方式打印,则该属性
工
-
< br>值为
True
。
Boolean
类
作
单
型,可读写。
表
色
打
印
p>
打
如果打印本页时同时打印
印
行标题和列标题,则该值
工
-
为
True
。仅应用于工作
作
行
表。
Boolean
类型,可读
表
号
写。
列
标
返回或设置批注随工作表
工
打