excel打印时自动在页眉中加入文档属性

来源:转载

在Excel 2003中单击菜单“文件→属性”可以查看Excel文档属性,其中有“修改时间”一项,它指的的是文件的上次保存时间。如果我们要在打印时自动将这个时间放到页眉中,可以用下面的VBA代码来实现:

按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“ThisWorkBook”,然后在右侧的代码窗口中输入下列代码:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim sLMD As String

On Error Resume Next

sLMD = ActiveWorkbook.BuiltinDocumentProperties.Item(12)

ActiveSheet.PageSetup.LeftHeader = "上次保存时间: " & sLMD

End Sub

这里用到了Workbook.BuiltinDocumentProperties 属性,它可以返回内置的文档属性的整个集合。可以通过指定属性的英文名称,或用集合索引号(数字),即Item(数字) 方法返回集合中的单个成员。例如

Workbook.BuiltinDocumentProperties.Item(3) 为“作者”

Workbook.BuiltinDocumentProperties("Last Save Time") 为“上次保存时间”

索引号与内置文档属性的名称对应表如下:

 

1

标题

11

创建日期

21

单位

 

2

主题

12

上次保存时间

22

字节数

 

3

作者

13

编辑时间总计

23

行数

 

4

关键字

14

页数

24

段落数

 

5

批注

15

字数

25

幻灯片数

 

6

模板

16

字符数

26

备注数

 

7

上一个作者

17

安全性

27

隐藏幻灯片数

 

8

修订次数

18

类别

28

多媒体剪辑数

 

9

应用程序名

19

格式

29

超链接基础

 

10

上次打印日期

20

经理

30

字符数(包含空格)

英文名称与内置文档属性的中文名称对应表:

 

Title

标题

 

Subject

主题

 

Author

作者

 

Keywords

关键字

 

Comments

批注

 

Template

模板

 

Last author

上一个作者

 

Revision number

修订次数

 

Application name

应用程序名

 

Last print date

上次打印日期

 

Creation date

创建日期

 

Last save time

上次保存时间

 

Total editing time

编辑时间总计

 

Number of pages

页数

 

Number of words

字数

 

Number of characters

字符数

 

Security

安全性

 

Category

类别

 

Format

格式

 

Manager

经理

 

Company

单位

 

Number of bytes

字节数

 

Number of lines

行数

 

Number of paragraphs

段落数

 

Number of slides

幻灯片数

 

Number of notes

备注数

 

Number of hidden Slides

隐藏幻灯片数

 

Number of multimedia clips

多媒体剪辑数

 

Hyperlink base

超链接基础

 

Number of characters (with spaces)

字符数(包含空格)

如果某个内置的文档属性是存在的,要将该文档属性放入页眉中,将上述代码中的索引号或英文名称作相应的修改即可。

分享给朋友:
您可能感兴趣的文章:
随机阅读: