请教高手有关VB开发CAD批量打印问题!!!

dong20030432

请教高手：
我自己制作了一个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

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

zzyong00

验证输入有效性

xinxirong

图纸内部名不是显示名称

dong20030432

zzyong00 发表于 2017-10-29 15:55
验证输入有效性

非常感谢，能说具体点吗？这个打印机和这个纸张，手动打印没有任何问题，程序自动打印就有问题了，麻烦您再详细解释下，谢谢了！

dong20030432

xinxirong 发表于 2017-10-30 09:32
图纸内部名不是显示名称

非常感谢您的回复！请问怎么知道内部名称不是显示名称？如何更改才能好呢，再次感谢！

likongshun

还是秋枫的好用