使用宏記錄WORD打印記錄

員工上班要打卡、計件，打印機工做是否是也要「記工」呢？把打印的文件名、打印時間記錄下來，可從方便管理員瞭解打印機的使用狀況，這種應用對一些公用電腦顯得很是有意義。

在通常的辦公室裏，使用打印機最多的非Word莫屬，我編寫了一個Word宏，當有人打印文檔時，宏就被激活並執行，將打印任務記錄在一個文本文件中，供管理人員隨時查閱。下面介紹實現方法。

第一步：

啓動Word，單擊菜單[工具]→[宏]→[宏]，在「宏名」框中輸入宏名「FilePrint」，單擊[建立]按鈕。

第二步：

在彈出的Visual Basic編輯器的代碼窗口中完成如下內容：

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, "於" + Tim+ "打印" + DName

Close #1

End Sub

Sub FilePrintDefault()

ActiveDocument.PrintOut

……(重複上面第3至8行內容)

End Sub

第三步：

錄入完成後，單擊[保存]按鈕，再單擊菜單[文件]→[關閉並返回Word]，所有操做完成。

上面的代碼包含兩個宏，第一個FilePrint宏在用戶執行[文件]→[打印]菜單命令時自動運行，第二個FilePrintDefault宏在用戶執行工具欄上的[打印]按鈕時自動運行，宏在運行時首先執行正常的打印操做，而後提取所打印文檔的路徑和文件名，以及當前日期和時間，並將這些數據寫入到d:\lanzi.dat文件中(此文件可在代碼中修改)。用記事本打開這個記錄文件，打印過的文件都詳細的記錄在案。