adison 发表于 2005-4-4 20:39:00

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

我想同时打印多个CAD文档，使用如下语句，在CAD2002下没有问题，但在CAD2005下总是出现错误，请问该如何解决？急!多谢!我有多个文档需要打印<br>
For Each DOC In Documents<br>
                                                       DOC.Activate<br>
                                                       DOC.ActiveLayout.ConfigName = ComboBox1.Text<br>
                                                       DOC.ActiveLayout.StyleSheet = ComboBox3.Text<br>
                                                       DOC.ActiveLayout.CanonicalMediaName = ComboBox2.Text<br>
                                                       DOC.ActiveLayout.PlotRotation = IsRotate<br>
<br>
                                                       If CheckBox1.Value = True Then<br>
                                                                       Response = MsgBox("确定打印以下文档： " &amp; msg &amp; DOC.WindowTitle, Style)<br>
                                                                               If Response = vbYes Then<br>
                                                                                       DOC.Plot.PlotToDevice<br>
                                                                       End If<br>
                                                       Else<br>
                                                                               DOC.Plot.PlotToDevice<br>
                                                       End If<br>
                       Next<br>

neteasy 发表于 2005-4-5 23:09:00

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


mccad 发表于 2005-4-6 21:52:00

先用RefreshPlotDeviceInfo 方法对设备的信息进行刷新
页: [1]
查看完整版本: 使用VBA进行多文档打印时出现问题