- 相關(guān)推薦
用Word宏給打印機(jī)“記工”
【簡(jiǎn) 介】
員工上班要打卡、計(jì)件，打印機(jī)工作是不是也要“記工”呢？把打印的文件名、打印時(shí)間記錄下來(lái)，可從方便管理員了解打印機(jī)的使用情況，這種應(yīng)用對(duì)一些公用電腦顯得非常有意義
員工上班要打卡、計(jì)件，打印機(jī)工作是不是也要“記工”呢？把打印的文件名、打印時(shí)間記錄下來(lái)，可從方便管理員了解打印機(jī)的使用情況，這種應(yīng)用對(duì)一些公用電腦顯得非常有意義�！�
在一般的辦公室里，使用打印機(jī)最多的非Word莫屬，我編寫(xiě)了一個(gè)Word宏，當(dāng)有人打印文檔時(shí)，宏就被激活并執(zhí)行，將打印任務(wù)記錄在一個(gè)文本文件中，供管理人員隨時(shí)查閱。下面介紹實(shí)現(xiàn)方法。
第一步：
啟動(dòng)Word，單擊菜單[工具]→[宏]→[宏]，在“宏名”框中輸入宏名“FilePrint”，單擊[創(chuàng)建]按鈕。
第二步：
在彈出的Visual Basic編輯器的代碼窗口中完成以下內(nèi)容：
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
……(重復(fù)上面第3至8行內(nèi)容)
End Sub
第三步：
錄入完成后，單擊[保存]按鈕，再單擊菜單[文件]→[關(guān)閉并返回Word]，全部操作完成。
上面的代碼包含兩個(gè)宏，第一個(gè)FilePrint宏在用戶執(zhí)行[文件]→[打印]菜單命令時(shí)自動(dòng)運(yùn)行，第二個(gè)FilePrintDefault宏在用戶執(zhí)行工具欄上的[打印]按鈕時(shí)自動(dòng)運(yùn)行，宏在運(yùn)行時(shí)首先執(zhí)行正常的打印操作，然后提取所打印文檔的路徑和文件名，以及當(dāng)前日期和時(shí)間，并將這些數(shù)據(jù)寫(xiě)入到d:\lanzi.dat文件中(此文件可在代碼中修改)。用記事本打開(kāi)這個(gè)記錄文件，打印過(guò)的文件都詳細(xì)的記錄在案(如圖)。
【用Word宏給打印機(jī)“記工”】相關(guān)文章：
Word中宏的基本操作11-11
Word宏功能創(chuàng)建個(gè)性化簽名11-11
用Word統(tǒng)計(jì)文字出現(xiàn)的次數(shù)11-11
用Word XP幫你優(yōu)化英文寫(xiě)作11-11
技巧：用word來(lái)實(shí)現(xiàn)批量抓圖11-11
精彩Office技巧:用Word修飾教案11-11
你會(huì)用Word來(lái)當(dāng)字典用嗎？11-11
教你輕松無(wú)憂的用Word整理資料11-11
用Word巧妙獲取QQ聊天記錄11-11