减小字体
增大字体
作者：佚名 来源：本站整理 发布时间：2011-08-30 00:12:40
建设节约型的社会，需要节约，打印机�**ぷ髦邢牟牧系拇蠡В绕涫谴蛴≈降南模允歉鞲龅ノ恢械暮牟拇蠡АＮ私谠即蛴≈剑枰汛蛴』墓ぷ髁考锹枷吕矗奖愣源蛴』墓芾恚斯な遣幌质档模梢允褂肳ORD的宏功能来记录打印机的工作量，其中括了打印的文件名、打印时间等等内容。
在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的文件以记录打印机的工作量。通过这个宏，可以记录打印机的详细工作量，从而 大程度地减少打印纸的浪费。
中查看“使用WORD宏记录打印机工作量”收录情况
中查看“使用WORD宏记录打印机工作量”收录情况