員工上班要打卡、計件，打印機工作是不是也要“記工”呢？把打印的文件名、打印時間記錄下來，可從方便管理員了解打印機的使用情況，這種應用對一些公用電腦顯得非常有意義。
在一般的辦公室里，使用打印機最多的非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文件中（此文件可在代碼中修改）。用記事本打開這個記錄文件，打印過的文件都詳細的記錄在案