[求助]怎样用VBA打印问题
大家好，我想要VBA打印一批图纸成PDF，而且全是在布局空间的，有的图纸有一个布局空间，有些是有两个或者更多，而且打印出来的PDF文档要和DWG文件名是一样的，问题是我要使用范围打印，和打印样式，不知道如何设置 怎么都没人帮我看看啊，我找了些然后加工了下，不知道为什么打印样式怎么也用不上，请大侠们帮我看看哪出了问题啊Public Sub SetPlotConfiguration()
objPlotConfiguration.ConfigName = "PDFCreator"
objPlotConfiguration.StyleSheet = "My.ctb"
objPlotConfiguration.CanonicalMediaName = "A3"
objPlotConfiguration.StandardScale = acScaleToFit
objPlotConfiguration.CenterPlot = True
objPlotConfiguration.PlotWithPlotStyles = True
objPlotConfiguration.PlotWithLineweights = False
objPlotConfiguration.PlotHidden = False
objPlotConfiguration.PlotType = acExtents
objPlot.NumberOfCopies = 1
objPlot.QuietErrorMode = True
End Sub
现在改成这样的了，但是还是不行啊，请哪位高人帮我看下
Sub plotpdf()
Dim Plotset As AcadPlotConfiguration
Set Plotset = ThisDrawing.PlotConfigurations.Add("pdf")
Plotset.ConfigName = "ComputerPrint"
Plotset.StyleSheet = "Fab Dwg.ctb"
Plotset.CanonicalMediaName = "A3"
Plotset.PlotWithPlotStyles = True
Plotset.PlotRotation = ac90degrees
Plotset.ShowPlotStyles = True
Plotset.PaperUnits = acMillimeters
Plotset.PlotType = acExtents
Plotset.StandardScale = acScaleToFit
Plotset.CenterPlot = True
ThisDrawing.Application.ActiveDocument.plot.PlotToDevice ("ComputerPrint")
End Sub
系统变量BACKGROUNDPLOT现在是不是1了，如果是，
改成0试试了。用了循环，是要打开后台打印的。
好像是这个系统变量的问题，我刚才用家里的电脑试了下，条件有限，明天去办公室再试一下，非常感谢楼上的。 想再请教下，现在的语句是不是可以理解为：只是添加了“pdf”这个打印配置，但它并不是默认的打印配置，然而通过最后一句只是按照当前默认的打印配置打印出来的，如果是的话，我怎样才能把“pdf”设置为默认的呢？
页:
[1]