论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 1606阅读
  • 1回复

[原创文章]巧用宏指令拒绝Excel2007文件打印 [复制链接]

上一主题 下一主题
离线sswow
 
发帖
*
今日发帖
最后登录
1970-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2008-12-20 10:16:33
现在的办公越来越倾向于无纸化办公了,Excel2007的应用也变得比较频繁了。但是在Excel2007的操作过程中我们可能会不小心碰到了打印按钮或者一些人不太注重节约,比较随意打印Excel2007文件,甚至是直接禁止一般人打印Excel2007文件。在不影响Excel2007文件的编辑保存等成长操作情况下我们该如何拒绝文件打印呢?  



其实这是比较简单的,我们只需要利用一段宏指令即可解决,具体操作如下:  



按下Alt+F11打开VBA编辑器,如果VBA Project窗格没有显示的话就按下组合键Ctrl+R将其调出;右键单击“This Workbook”,选择“查看代码”,然后再代码窗口内输入:  



Private Sub



Workbook_BeforePrint(Cancel As Boolean)



Cancel = True



MsgBox “节约用纸 拒绝打印”, vbInformation



End Sub  



然后我们按下组合键Alt+F11返回Excel2007。这样以后不管你是直接点击打印按钮,还是从“Office按钮”中选择“打印”,或者是使用快捷键Ctrl+P,都不能直接打印,只会显示你在宏指令中输入的提示语“节约用纸 拒绝打印”。这也让大家知道不能打印的原因是有意为之,而不是硬件或软件有什么问题。
离线笨熊维尼

发帖
8070
今日发帖
最后登录
2015-06-22
只看该作者 沙发  发表于: 2008-12-20 20:06:59
回 楼主(sswow) 的帖子
这个想法真的不错啊。。