vba打印多文档时总是出错？高手请进

adison

'vba打印多文档时总是出错？高手请进
Private Sub CommandButton4_Click()
Dim DOC As AcadDocument
Me.Hide
For Each DOC In Documents
    DOC.Activate
    DOC.Plot.NumberOfCopies = 1
    DOC.Plot.PlotToDevice
Next
Unload Me
End Sub
'本程序在CAD2004下没有问题，但在CAD2005和2006下却只能打印第一个文档后就出现错误，不知何故？请高手指教！

adison

终于找到答案了！