页眉页脚
PrintSetting中和页眉页脚有关的子属性有:
Header:字符型,指定页眉
Footer: 字符型,指定页脚
MarginHeader:指定页眉边距,单位为毫米
MarginFooter:指定页脚边距,单位为毫米
页眉页脚都分为左、中、右三部分,分别用字符串“&L”、 “&C”、 “&R”开头。
此外下列以字符“&”开始的字符串,都有着特殊的意义:
| 字符串 |
说明 |
| &P |
页号 |
| &N |
总页数 |
| &D |
当天日期 |
| &T |
当前时间 |
| &A |
工作表名称 |
| &F |
文件名,不含路径 |
| &Z |
文件名,含路径 |
| &B |
字体加粗切换 |
| &I |
字体倾斜切换 |
| &U |
下划线切换 |
| &E |
双下划线切换 |
| &S |
删除线切换 |
| &X |
上标切换 |
| &Y |
下标切换 |
| &"[FontName]" |
指定字体名称,例如: &"[黑体]" |
| &[FontSize] |
指定字体大小,例如:&[8] |
示例:
Dim
Book
As New XLS.Book
'定义一个Excel工作簿
Dim Sheet As
XLS.Sheet = Book.Sheets(0)
'引用工作簿的第一个工作表
With Sheet.PrintSetting
'页眉左边为日期,中间为时间,右边为表名
.Header = "&L&D &C&T
&R&A"
'在页脚右边打印页号和总页数
.Footer
= "&R第&P页,总&N页"
End With
For i As
Integer =
0 To
100
'向工作表的单元格中设置值
Sheet(i, 0).Value
= (i + 1) *
10
Sheet(i, 1).Value
= (i + 1) *
100
Sheet(i, 2).Value
= (i + 1) *
1000
Next
Book.Save("c:\reports\test.xls")
'保存工作簿
Dim Proc As
New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
本页地址:http://www.foxtable.com/webhelp/topics/1315.htm