使用VBA进行多文档打印时出现问题

adison

我想同时打印多个CAD文档，使用如下语句，在CAD2002下没有问题，但在CAD2005下总是出现错误，请问该如何解决？急!多谢!我有多个文档需要打印
For Each DOC In Documents
DOC.Activate
DOC.ActiveLayout.ConfigName = ComboBox1.Text
DOC.ActiveLayout.StyleSheet = ComboBox3.Text
DOC.ActiveLayout.CanonicalMediaName = ComboBox2.Text
DOC.ActiveLayout.PlotRotation = IsRotate

If CheckBox1.Value = True Then
Response = MsgBox("确定打印以下文档： " & msg & DOC.WindowTitle, Style)
If Response = vbYes Then
DOC.Plot.PlotToDevice
End If
Else
DOC.Plot.PlotToDevice
End If
Next

neteasy

打开选项，把如图的后台处理选项取消试一下。

mccad

先用RefreshPlotDeviceInfo 方法对设备的信息进行刷新