简单vba例子的问题！大家帮忙！

icecools

我照帮助上写个例子，是事件的，就是打印的时候msgbox文件名
ThisDrawing代码：
Dim X As New EventClassModule
Call InitializeEvents

Sub InitializeEvents()
Set X.Doc = ThisDrawing
End Sub

EventClassModule代码：
Public WithEvents Doc As AcadDocument

Private Sub Doc_BeginPlot(ByVal DrawingName As String)
MsgBox (DrawingName)
End Sub
运行时出现Call那里是无效外部过程什么的
其实我想加载了这个工程后打印的时候就可以起作用了，但现在要每次指定运行InitializeEvents以后打印才有效果，我应该怎么改啊？

mccad

在VBA中只需要这样：

2. Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
3.        MsgBox (DrawingName)
4. End Sub

Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)        MsgBox (DrawingName) End Sub

icecools

谢谢谢谢！