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

在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)	字符数（包含空格）

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