使用WORD宏记录打印机工作量

    建设节约型的社会，需要节约，打印机是工作中消耗材料的大户，尤其是打印纸的消耗，绝对是各个单位中的耗材大户。为了节约打印纸，需要把打印机的工作量记录下来，方便对打印机的管理，而人工数是不现实的，可以使用WORD的宏功能来记录打印机的工作量，其中括了打印的文件名、打印时间等等内容。

    在WORD中创建名为print的宏，打开工具菜单下的宏选项中的宏，在宏名中输入print，然后创建即可。在VB窗口中写进如下的代码以完成宏。

　　Sub Print()

　　Dialogs(wdDialogFilePrint).Show

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

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

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

　　Open "X:\dayin.dat" For Append As #1

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

　　Close #1

　　End Sub

　　Sub PrintDefault()

　　ActiveDocument.PrintOut

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

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

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

　　Open "X:\ dayin.dat " For Append As #1

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

　　Close #1

　　End Sub

    写完代码后保存即可。上面的代码一共两组，第一组是在用户通过文件菜单下的打印命令打印时激活，第二组是在用户通过工具栏上的打印按钮打印时激活。其中的X:\dayin.dat是指在任意一个分区中建立名为dayin.dat的文件以记录打印机的工作量。通过这个宏，可以记录打印机的详细工作量，从而 大程度地减少打印纸的浪费。