《借word宏命令,构建打印助手》由会员分享，可在线阅读，更多相关《借word宏命令,构建打印助手（2页珍藏版）》请在金锄头文库上搜索。
1、借借 Word 宏命令，构建打印助手宏命令，构建打印助手引:办公用电脑很多都是多人共用，但由于使用者的素质、计算机水平不一样，就经出现打印时严重浪费，用公家设备打印私活等现象，更有甚者会因误操作而损坏设备。如果你正为此烦恼，那么用 Word“宏”来解决这个问题，或许能让你从此高枕无忧。 1、为 Word 文档打印加一把保护锁 下面以 Word XP 为例(Word 的大多数版本都一样)，向大家介绍一下如何为 Word 打印设置密码。启动 Word 后，点击 Word 菜单中的“工具”“宏”“宏” ，在“宏名”文本框中输入“Fileprint”(图 1)，接着单击“创建”按钮，弹出 Visual
2、 Basic 编辑器窗口(图 2)，在代码窗口中录入以下程序(这里以 abcd 为密码)： Sub FilePrint() pass$ = InputBox(“请输入打印密码：“) If pass$ = “abcd“ Then Dialogs(wdDialogFilePrint).Show Else MsgBox (“密码错误，请与管理人员联系！“) End If End Sub Sub FilePrintdefault() pass$ = InputBox(“请输入打印密码：“) If pass$ = “abcd“ Then Dialogs(wdDialogFilePrint).Show E
3、lse MsgBox (“密码错误，请与管理人员联系！“) End If End Sub 录入完毕，单击“保存”按钮，将宏保存到 Normal 模板，然后关闭 VBA 窗口并返回 Word，上面的两个宏内容一样，只是宏名不一样，原因是“Fileprint”宏与“文件”菜单中的“打印”命令相同， “FileprintDdfault”宏与工具栏中的“打印”命令相同，因此不管使用者用哪一种方式，执行的宏内容是一样的。 当别人执行“文件”菜单中的“打印”命令或工具栏上的“打印”按钮时，Word 会弹出对话框提示密码(图 3)，如果密码不是“abcd”就无法打印文档，还提示要你与管理员联系(图 4)，是
4、不是更有个性呀。其实私人电脑也一样哟，免得不经你的允许又打印一大堆文件啦。当然了，此锁“只防君子，不防高人” ，也并不是就彻底高枕无忧了！ 2、用“宏”为 Word 文档打印“记工” 步骤跟上面一样，代码如下： Sub FilePrint() Dialogs(wdDialogFilePrint).Show DName = ActiveDocument.Path + “ + ActiveDocument.Name If ActiveDocument.Path = “ Then DName = “未保存文档“ Tim = Str(Date) + “ 日 “ + Str(Time) Open “c:
5、print.txt“ For Append As #1 Print #1, “于 “ + Tim+ “ 打印 “ + DName Close #1 End Sub 重复上面 FilePrint()的代码，再做一个 FilePrintDefault()宏短，操作类似打印密码功能部分。 这样，每次打印的记录都保存在 C:盘根目录下的 print.txt 文本文件里，方便你查询。 3、二法合一 如果将两者结合起来，我想，这个方法还是称得上是个不错的办法，完整源代码如下： Sub FilePrint() pass$ = InputBox(“请输入打印密码：“) If pass$ = “abcd“ Th
6、en Dialogs(wdDialogFilePrint).Show DName = ActiveDocument.Path + “ + ActiveDocument.Name If ActiveDocument.Path = “ Then DName = “未保存文档“ Tim = Str(Date) + “ 日 “ + Str(Time) Open “c:print.txt“ For Append As #1 Print #1, “于 “ + Tim+ “ 打印 “ + DName Close #1 Else MsgBox (“密码错误，请与管理人员联系！“) End If End Sub 重复上面 FilePrint()的代码，再做一个 FilePrintDefault()宏短，操作类似打印密码功能部分。 您对这个方法是否满意呢？心动不如行动，快快动手吧，来体验宏带来的乐趣，提高我们的工作效率！
