社区 › VB › 关于2008下批打印问题

liuyang4740 发表于 2009-6-4 15:22:00

关于2008下批打印问题

以下程序，（2004下可以打印，本人已经验证）2008下只能打一张图纸，F8跟踪时候，第二循环次运行到ThisDrawing.plot.PlotToDevice时出错，提示PlotToDevice作用错误
&nbspublic Sub pp()               
Dim objsel As AcadEntity
Dim ptLowLeft As Variant
Dim ptUpRight As Variant
   For Each objsel In ThisDrawing.PaperSpace
       If objsel.ObjectName = "AcDbBlockReference" Then '筛选出Block
          If objsel.Name Like "图框A*" Then                                                    '只选图框块！！！区分大小写
            objsel.GetBoundingBox ptLowLeft, ptUpRight
                      ReDim Preserve ptLowLeft(1)
                     ReDim Preserve ptUpRight(1)
             ThisDrawing.PaperSpace.Layout.SetWindowToPlot ptLowLeft, ptUpRight
             ThisDrawing.PaperSpace.Layout.PlotType = acWindow
               PrinterConfigPath = " EPL-2180 Advanced"
               ThisDrawing.PaperSpace.Layout.PaperUnits = acMillimeters
                   ThisDrawing.PaperSpace.Layout.UseStandardScale = True
                     ThisDrawing.PaperSpace.Layout.StandardScale = acScaleToFit
                        ThisDrawing.PaperSpace.Layout.StyleSheet = "au.ctb"
                           ThisDrawing.PaperSpace.Layout.CanonicalMediaName = "A3"
               
                              ThisDrawing.PaperSpace.Layout.PaperUnits = acMillimeters

                                       ThisDrawing.plot.NumberOfCopies = 1
                                     ThisDrawing.plot.QuietErrorMode = True
                                           ThisDrawing.plot.PlotToDevice
         End If
   Endif
Next

End Sub
**** Hidden Message *****

liuyang4740 发表于 2009-6-5 08:43:00

高手呢？？？

glowz 发表于 2009-6-7 21:44:00

去选项里把 后台打印和发布关掉 看看

liuyang4740 发表于 2009-6-8 14:27:00

高手！！！佩服啊！！！多谢！！！楼上的能说说原因吗？

查看完整版本: 关于2008下批打印问题