dong20030432 发表于 2017-10-27 14:05:46

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

本帖最后由 dong20030432 于 2017-11-8 10:26 编辑

请教高手：
我自己制作了一个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 发表于 2017-10-29 10:54:44

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

zzyong00 发表于 2017-10-29 15:55:00

验证输入有效性

xinxirong 发表于 2017-10-30 09:32:26

图纸内部名不是显示名称

dong20030432 发表于 2017-10-30 09:37:25

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

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

dong20030432 发表于 2017-10-30 09:38:25

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

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

likongshun 发表于 2017-11-1 14:43:49

还是秋枫的好用
页: [1]
查看完整版本: 请教高手有关VB开发CAD批量打印问题!!!