在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標(biāo)識(shí) 上網(wǎng)做生意,首選VIP會(huì)員| 設(shè)為首頁| 加入桌面| 收藏本頁| 手機(jī)版| RSS訂閱
食品伙伴網(wǎng)服務(wù)號(hào)
 
當(dāng)前位置: 首頁 » 食品專題 » 辦公軟件-word使用技巧 » 正文

用Word宏給打印機(jī)“記工”

放大字體  縮小字體 發(fā)布日期:2006-06-09

員工上班要打卡、計(jì)件,打印機(jī)工作是不是也要“記工”呢?把打印的文件名、打印時(shí)間記錄下來,可從方便管理員了解打印機(jī)的使用情況,這種應(yīng)用對(duì)一些公用電腦顯得非常有意義。

在一般的辦公室里,使用打印機(jī)最多的非Word莫屬,我編寫了一個(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ù)寫入到d:\lanzi.dat文件中(此文件可在代碼中修改)。用記事本打開這個(gè)記錄文件,打印過的文件都詳細(xì)的記錄在案

 
更多

 

 
推薦圖文
推薦食品專題
點(diǎn)擊排行
 
 
Processed in 0.094 second(s), 171 queries, Memory 1.26 M
51La
主站蜘蛛池模板: 亚洲五月综合缴情婷婷 | 婷婷综合在线观看丁香 | 久久天天躁狠狠躁夜夜不卡 | 奇米狠狠操 | 精品伊人久久大线蕉色首页 | 97精品久久天干天天蜜 | 欧美黑人性受xxxx喷水 | 日本污全彩肉肉无遮挡彩色 | 四虎伦理 | 美国人与性xxxxxxx | 特级aaaaaaaaa毛片免费视频 | 日本亚洲高清乱码中文在线观看 | 午夜精品久久久久久影视riav | 国产精品李雅在线观看 | 亚洲色图17p| 91久久天天躁狠狠躁夜夜 | 欧美在线性 | 久久精品最新免费国产成人 | 亚洲永久网站 | 天天搞夜夜 | 日本午夜色 | 国产一级aaa全黄毛片 | 制服丝袜中文字幕第一页 | 国内真实实拍伦视频在线观看 | 黄网站视频 | 久久精品视频99精品视频150 | 成人黄色免费观看 | 天天翘夜夜洗澡天天做 | 影音先锋午夜资源网站 | 福利一级片 | 欧美成人性色 | 亚洲三级视频 | 午夜男人视频 | 天堂网中文在线最新版 | 日本三级日本三级人妇三级四 | 国产精品午夜寂寞视频 | 午夜影皖普通区 | 888午夜不卡理论久久 | 欧美不卡1卡2卡三卡老狼 | 黄色录像视频网站 | 欧美性受一区二区三区 |