如何调用打印事件：

aslxt

在word中，我想在打印的时候把文档打印之前，把当前日期和时间写入条形码控件然后，再打印出来。网上没有现成的例子，帮助文档如下：
使用 Application 对象事件参阅特性
若要创建 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbawd10.chm::/html/woobjApplication1.htm]Application[/url] 对象事件的事件处理器，需要完成下列三个步骤：

• [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbawd10.chm::/html/wohowapplicationevents1.htm#Declare an object variable in a class module to respond to the events.]在类模块中声明对应于事件的对象变量。[/url]
• [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbawd10.chm::/html/wohowapplicationevents1.htm#Write the specific event procedures.]编写特定事件过程。[/url]
• 从其他模块中初始化声明的对象。

[url=]声明对象变量[/url]在为 Application 对象事件编写过程之前，必须创建新的类模块并声明一个包含事件的 Application 类型对象。例如，假定已创建新的类模块并命名为 EventClassModule。该类模块包含下列代码:
Public WithEvents App As Word.Application[url=]编写事件过程[/url]定义了包含事件的新对象后，它将出现在类模块的“对象”下拉列表框中，然后可为新对象编写事件过程。（在“对象”框中选定新对象后，用于该对象的有效事件将出现在“过程”下拉列表框中）从“过程”下拉列表框中选择一个事件，在类模块中会增加一空过程。
Private Sub App_DocumentChange()End Sub[url=]初始化已声明的对象[/url]在运行过程之前，必须将类模块中已声明的对象（本例中为 App）连接到 Application 对象。您可在任何模块中使用下列代码：
Dim X As New EventClassModuleSub Register_Event_Handler()    Set X.App = Word.ApplicationEnd Sub运行 Register_Event_Handler 过程。运行该过程后，类模块中的 App 对象指向 Microsoft Word Application 对象，当事件发生时，将运行类模块中的事件过程。

可是我看不明白。各位有没有做好的示例共享，谢谢

tmtony

如果你是在word里面编写,直接用application就可以
如果你在其它组件中调用word,  才需要创建word.application

stuv725

不错 顶一下

dbbygzy

xuexil