如何记录打印word文件名和打印时间

1、打开一个word文档。

2、点击“视图”菜单。

3、单击“宏”按钮。

4、在“宏名”中输入filePrint，点击“创建”按钮。

5、输入以下代码：

Dname = ActiveDocument.Path + "" + ActiveDocument.Name

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

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

Open "d:\print.txt" For Append As #1

Print #1, "于" + Time + " 打印 " + Dname

Close #1

6、单击“保存”按钮。

7、点击“文件”菜单下的“关闭并返回word”

8、点击“文件”菜单下的“打印”，打印文档。

9、打印完成后，我们在d盘打开print.txt文件，打印过的文件都已经详细记录。