落岸天使论坛

 找回密码
 注册
搜索
论坛,不要冷落了陌生人新人注册后在此报道,奖励20羽毛:)严肃处理违规灌水行为及处罚办法
参与论坛宣传活动,获得积分勋章奖励知羽艺匠及其他模板资源下载珍惜你的ID 珍惜你的名誉
查看: 1133|回复: 1

[转贴] 巧用宏指令拒绝Excel2007文件打印

[复制链接]

108

主题

62

回帖

283

积分

水天使

Rank: 3Rank: 3

积分
283

五周年纪念勋章

发表于 2008-12-21 21:00:06 | 显示全部楼层 |阅读模式
现在的办公越来越倾向于无纸化办公了,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,都不能直接打印,只会显示你在宏指令中输入的提示语“节约用纸 拒绝打印”。这也让大家知道不能打印的原因是有意为之,而不是硬件或软件有什么问题

759

主题

7327

回帖

9189

积分

精灵天使

萧萧雾眼_冰心一片

Rank: 6Rank: 6

积分
9189

优秀版主奖突出贡献奖贴图大师奖灌水天才奖宣传大使奖版主勋章60周年国庆纪念勋章幸运天使奖

发表于 2008-12-22 10:11:25 | 显示全部楼层
不错,感谢分享
淘宝店铺地址:http://led-pro.taobao.com/
主营红外人体感应吸顶灯 楼道灯
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|Archiver|落岸天使论坛

GMT+8, 2024-11-27 14:27 , Processed in 0.086586 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表