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

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

我想同时打印多个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