如何利用宏记录Word打印信息

1、打开Word2007，切换到”开发工具“选项卡，然后点击“宏”按钮。

2、在打开的“宏”窗口中，输入宏名称“FilePrint",如果窗口下方”说明“处显示”打印活动文档“，则说明我们键入的名称正确，接着点击”创建“按钮。

3、在打开的编辑宏窗口中，输入如图所示的代码：

Sub FilePrint()

'
' FilePrint 宏
' 打印活动文档
'
   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 宏
' 以默认方式打印当前文档
'
   ActiveDocument.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 #1
End Sub

最后点击“保存"按钮。

6、 接下来，就可以进行测试啦。点击”Office按钮“→”打印“（或者直接点击”打印“按钮），在弹出的”打印文件“窗口中，点击“确定”按钮，当文件被打印输出后，查看D盘根目录下的“PrintInfo.dat”文件，就会发现相关打印信息已经被写入啦。