使用WORD宏記錄打印機工作量

    建設(shè)節(jié)約型的社會，需要節(jié)約，打印機是工作中消耗材料的大戶，尤其是打印紙的消耗，絕對是各個單位中的耗材大戶。為了節(jié)約打印紙，需要把打印機的工作量記錄下來，方便對打印機的管理，而人工數(shù)是不現(xiàn)實的，可以使用WORD的宏功能來記錄打印機的工作量，其中括了打印的文件名、打印時間等等內(nèi)容。

    在WORD中創(chuàng)建名為print的宏，打開工具菜單下的宏選項中的宏，在宏名中輸入print，然后創(chuàng)建即可。在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是指在任意一個分區(qū)中建立名為dayin.dat的文件以記錄打印機的工作量。通過這個宏，可以記錄打印機的詳細(xì)工作量，從而 大程度地減少打印紙的浪費。