技巧57 打印预览时不触发BeforePrint事件如何解除？

lgpoo · 发表于 2008-12-1 16:51

各位达人！
小弟刚买了本VBA精粹，拷贝随盘的示例文件到电脑里面每次打印都会出现
“技巧57 打印预览时不触发BeforePrint事件”的Excel文件
我把那个文件删除了，结果打印预览就不能用了，我晕
怎么解除啊，各位大哥帮帮小弟这个！

冰山上的来客 · 发表于 2008-12-1 16:59

删除 Excel11.xlb 文件。

lgpoo · 发表于 2008-12-2 09:08

晕这个文件我找不到啊
在哪啊！

清风_ll · 发表于 2008-12-2 10:13

本考虑到朋友们学习完了之后,就可以自行解决了.
请执行以下代码,对给大家造成的影响表示抱歉.

Sub RestoreP()
Dim cmdCtrls As CommandBarControls
Dim cmd As CommandBarControl
Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)
For Each cmd In cmdCtrls
cmd.Reset
Next
End Sub

复制代码

wcnddm · 发表于 2008-12-2 10:26

我也遇到这样的问题，但我只想在关闭工作簿之后恢复BeforePrint事件，后来查了些资料，写了如下代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmd As CommandBarControl
For Each cmd In Application.CommandBars.FindControls(ID:=109)
cmd.OnAction = ""
Next
End Sub
但我不明白cmd.OnAction = ""和cmd.reset的详细区别，向版主请教。

清风_ll · 发表于 2008-12-2 11:47

对于内置命令栏控件,OnAction = ""同样可以实现恢复原控件的行为.而使用Reset方法,则同时可以恢复其它的改变,如控件图标,标题等的改变.
对于本例来说,两者是同价的.因为例子中并未改变控件的其它属性.

wcnddm · 发表于 2008-12-2 13:40

谢谢版主。受益匪浅！

lgpoo · 发表于 2008-12-3 14:18

版主你太强大了
我感谢你的代码，困扰我多时的问题终于被解决了
谢谢

ANYWAYR · 发表于 2009-6-26 14:02

原帖由 清风_ll 于 2008-12-2 10:13 发表
本考虑到朋友们学习完了之后,就可以自行解决了.
请执行以下代码,对给大家造成的影响表示抱歉.Sub RestoreP()
Dim cmdCtrls As CommandBarControls
Dim cmd As CommandBarControl
Set cmdCtrls = App ...

唉，我也中招了。但是我对VBA一窍不通。上面的代码该怎么输入，如何运行呢，谁能帮帮我吗？

ANYWAYR · 发表于 2009-6-26 16:51

已经解决了，要在原文件里面运行才行。

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

技巧57 打印预览时不触发BeforePrint事件 如何解除？

回复 2楼 冰山上的来客 的帖子

技巧57 打印预览时不触发BeforePrint事件如何解除？

回复 2楼冰山上的来客的帖子