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

lgpoo

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

冰山上的来客

删除  Excel11.xlb 文件。

lgpoo

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

清风_ll

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

1. Sub RestoreP()
   
2.     Dim cmdCtrls As CommandBarControls
   
3.     Dim cmd As CommandBarControl
   
4.     Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)
   
5.     For Each cmd In cmdCtrls
   
6.         cmd.Reset
   
7.     Next
   
8. End Sub
   

复制代码

wcnddm

我也遇到这样的问题，但我只想在关闭工作簿之后恢复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

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

wcnddm

谢谢版主。受益匪浅！

lgpoo

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

ANYWAYR

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

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

ANYWAYR

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