巧用word宏命令加密打印机

发布时间 : 星期六 文章巧用word宏命令加密打印机更新完毕开始阅读

前些日子,配备了一台打印机,着实的高兴,但没高兴多长时日,烦恼接踵而来。打印机你用、我用、他也用,墨水是“飞流直下”,更有甚者下班后偷偷打印电子书??。机器是公用机,锁又锁不得,而墨盒却是自己的,头儿规定半年给配一个,用完后要自己掏腰包。为

避免他人盲目打印东西,造成无谓的浪费,于是计上心来??

一、设置,打印机也有“锁”

第一步:启动Word,点击菜单栏的“工具”→“宏”→“宏”,弹出的“宏”对话框。

在“宏名”文本框中输入“Fileprint”(如图1)。

图1

第二步:接着,单击“创建”按钮,弹出Visual Basic编辑器窗口。在代码窗口中录

入以下内容:

Sub FilePrint() Dialogs(wdDialogFilePrint).Show pass$ = InputBox(\请输入打印密码:\ If pass$ = \ Dialogs(wdDialogFilePrint).Show Else MsgBox (\密码错误,你无权使用该打印机!\ End If End Sub 小提示:打印密码是“AAAAA”,请自行修改为你认为合适的密码,下同。另外,“Fileprint”宏与“文件”菜单中的“打印”命令相关联,可以给“文件”菜单中的“打

印”命令设置上密码。

第三步:重复上述步骤,新建一个名为”FilePrintdefault“的宏,并在代码窗口中录

入以下内容:

Sub FilePrintdefault() ActiveDocument.PrintOut pass$ = InputBox(\请输入打印密码:\ If pass$ = \ Dialogs(wdDialogFilePrint).Show Else MsgBox (\密码错误,你无权使用该打印机!\ End If End Sub 小提示:“FileprintDdfault”宏与工具栏中的“打印”命令相关联,可以给工具栏中

的“打印”命令设置密码。

第四步:录入完毕,单击“保存”按钮,关闭代码窗口退回到Word窗口,点击菜单栏

中的“文件”→“另存为”,在弹出的另存为对话框中将宏保存为Normal模板。

二、使用,请亮出你的身份证

设置完毕后,当他人欲打印文章时,无论是通过“文件”菜单中的“打印”命令还是工具栏上的“打印”按钮,都会弹出一个密码输入对话框(如图2),如果输入的密码不正确,就会弹出“密码错误,你无权使用该打印机”的警示,不知道密码的用户再也无法使用打印

机了。

图2

如果自己需要打印文档,那么只需敲入密码“AAAAA”即可。怎么样,通过一个简单的

宏命令就将打印机锁住了吧!

联系合同范文客服:xxxxx#qq.com(#替换为@)