怎样用Word 2007的宏来保存打印记录

1、第一，打开Word，找到宏。

以2007为例：视图——宏

（其他版本参考）工具→宏→宏

2、第二，输入宏名“FilePrin”（建议）也可以是 Word文件打印记录。然后选择 “创建”

弹出窗口如图：

3、第三，在 VB 窗口输入代码：

Sub FilePrint()

Dialogs(wdDialogFilePrint).Show

DName = ActiveDocument.Path + "" + ActiveDocument.Name

If ActiveDocument.Path = "" Then DName = "未保存文档"

Tim = Str(Date) + "日" + Str(Time)

Open "d:langzi.dat" For Append As #1

Print #1, "于" + Tim+ "打印" + DName

Close #1

End Sub

Sub FilePrintDefault()

ActiveDocument.PrintOut

……(重复上面第3至8行内容)

End Sub

然后，确认无误，点击保存

4、第四，单击菜单  文件 →关闭并返回Word。这样就大功告成。

5、第五，自己可以试验一下。