求：禁止打印的代码

fxgg72 · 发表于 2012-12-5 17:39

工作簿中有13个工作表，我想只打印汇总表，其他的12个数据表不准许打印，怎么才能禁止掉？
请大侠老师们给个代码。
谢谢！

该贴已经同步到 fxgg72的微博

kehuanm · 发表于 2012-12-5 18:07

求助最好能有附件，请参阅！

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
If ActiveSheet.Name = "汇总表" Then
Exit Sub
Else
MsgBox "禁止打印！"
Cancel = True
End If
End Sub

禁止打印.rar (6.39 KB, 下载次数: 56)

ngnndkkk · 发表于 2012-12-5 18:10

只要禁用宏，想怎么打印就怎么打印。累不累啊你，这样做有什么意义？！！！

fxgg72 · 发表于 2012-12-6 06:43

kehuanm 发表于 2012-12-5 18:07
求助最好能有附件，请参阅！

Private Sub Workbook_BeforePrint(Cancel As Boolean)

谢谢老师帮助！
不胜感激啊！
我权限有限，只能给您+2分{:soso_e121:}

fxgg72 · 发表于 2012-12-6 06:45

ngnndkkk 发表于 2012-12-5 18:10
只要禁用宏，想怎么打印就怎么打印。累不累啊你，这样做有什么意义？！！！

这个工作簿中的所以工作表都有大量的公式和代码，估计“禁用宏”后就有些异常啊！
谢谢回复！
你的观点也对，简单的事情就简单做，不要太复杂化。

莫悠悠 · 发表于 2012-12-8 23:03

只要在关闭前隐藏所有附表，只要启用宏则打开所有附件，就可以实现禁止打印目的

gakk117 · 发表于 2013-5-4 12:34

还是这里的高手多呀谢谢了已试用效果非常不错

		自动登录	找回密码
密码			免费注册

[已解决] 求：禁止打印的代码

点评

评分