Word中的宏代码(17)：打印历史自动记录

软件世界

谢军华 · 2004年5月3日

　　目的要求：笔者使用的电脑为多人共用，近来发现打印机被人随意使用，主要是在Word中打印文档，为了监督打印机的使用情况，我编写了一个Word宏，只要有人打印文档，宏就被激活，将所打印文档的保存路径、文件名及打印时间记录下来，并可随时查看记录。

　　宏代码：

　　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, "于 " + Time+ " 打印 " + DName

　　Close #1

　　End Sub

　　Sub FilePrintDefault()

　　ActiveDocument.PrintOut

　　......

　　End Sub

　　说明： 此后，只要有人使用“文件”菜单中的“打印”命令(对应于第一个宏)，或者工具栏上的“打印”按钮(对应于第二个宏)，所打印文档的路径、文件名、打印时间，就会被记载到D:\langzi.dat文件中。用记事本打开这个记录文件，打印历史都详细记录在里面。