1、打开Word2007，切换到”开发工具“选项卡，然后点击“宏”按钮。
2、在打开的“宏”窗口中，输入宏名称“FilePrint",如果窗口下方”说明“处显示”打印活动文档“，则说明我们键入的名称正确，接着点击”创建“按钮。
3、在打开的编辑宏窗口中，输入如图所示的代码：Sub FilePrint()'' Fi盟敢势袂lePrint 宏' 打印活动文档' 肛舀辨乔Dialogs(wdDialogFilePrint).Show PrintName = ActiveDocument.Path + "" + ActiveDocument.Name If ActiveDocument.Path = "" Then PrintName = "未保存文档" End If PrintTime = Str(Date) + "日" + Str(Time) Open "d:\PrintInfo.dat" For Append As #1 Print #1, "于" + PrintTime + "打印" + PrintName Close #1 End Sub最后点击”保存“按钮。
4、完成后，回到Word文档中，再次创建一个名称为”FilePrintDefault"的宏，并点击“创建”按钮。
5、在打开的宏编辑界面中输入如图所示的内容：Sub FilePrintDefault(拘七呷憎)'' FilePrintDefault 宏' 以默认方式打印当前文档' ActiveDocum髫潋啜缅ent.PrintOut PrintName = ActiveDocument.Path + "" + ActiveDocument.Name If ActiveDocument.Path = "" Then PrintName = "未保存文档" End If PrintTime = Str(Date) + "日" + Str(Time) Open "d:\PrintInfo.dat" For Append As #1 Print #1, "于" + PrintTime + "打印" + PrintName Close #1End Sub最后点击“保存"按钮。
6、 接下来，就可以进行测试啦。点击”Office按钮“→”打印“（或者直接点击”打印“按钮），在弹出的”打印文件“窗口中，点击“确定”按钮，当文件被打印输出后，查看D盘根目录下的“PrintInfo.dat”文件，就会发现相关打印信息已经被写入啦。
