|
|
请教高手：
我自己制作了一个CAD批量打印软件，当使用其它打印机时，以下代码一切正常，但使用hp7110打印机时（程序中的Form1.Combo1.Text=“HP Officejet 7110 series (网络)”，Form1.Combo3.Text=“A3 297x420 毫米-普通纸”时，参考图片），代码在下划线加粗代码处突然结束，不执行后面的代码了，请高手帮忙看下，非常感谢！
Sub PDFA3h()
Set layout = acadapp.ActiveDocument.ActiveLayout
If XNToZS = True Then
layout.ConfigName = Form1.Combo1.Text
layout.CanonicalMediaName = Form1.Combo3.Text
acadapp.ActiveDocument.Plot.NumberOfCopies = Val(Form1.Text3.Text)ElseIf XNToZS = False Then
layout.ConfigName = "pdfFactory Pro"
layout.CanonicalMediaName = "A3"
acadapp.ActiveDocument.Plot.NumberOfCopies = 1
End If
layout.PlotWithPlotStyles = True
layout.StyleSheet = Form1.Combo2.Text
layout.PaperUnits = acMillimeters
layout.CenterPlot = True
layout.PlotRotation = ac90degrees
ReDim Preserve pmin(0 To 1)
ReDim Preserve pmax(0 To 1)
layout.SetWindowToPlot pmin, pmax
layout.PlotType = acWindow
layout.StandardScale = acScaleToFit
acadapp.ActiveDocument.SetVariable "backgroundplot", 0
acadapp.ActiveDocument.Plot.QuietErrorMode = True
acadapp.ActiveDocument.Plot.PlotToDevice
tkcounta3 = tkcounta3 + 1
AppActivate Form1.Caption
End Sub软件截图
qsnwwsgqwjd.jpg
|
|
置顶卡
