[求助]怎样用VBA打印问题

Alan.Shi

大家好，我想要VBA打印一批图纸成PDF，而且全是在布局空间的，有的图纸有一个布局空间，有些是有两个或者更多，而且打印出来的PDF文档要和DWG文件名是一样的，问题是我要使用范围打印，和打印样式，不知道如何设置

Alan.Shi

怎么都没人帮我看看啊，我找了些然后加工了下，不知道为什么打印样式怎么也用不上，请大侠们帮我看看哪出了问题啊

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

Alan.Shi

现在改成这样的了，但是还是不行啊，请哪位高人帮我看下

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

fjfhgdwfn

系统变量BACKGROUNDPLOT现在是不是1了，如果是，

改成0试试了。用了循环，是要打开后台打印的。

Alan.Shi

好像是这个系统变量的问题，我刚才用家里的电脑试了下，条件有限，明天去办公室再试一下，非常感谢楼上的。

Alan.Shi

想再请教下，现在的语句是不是可以理解为：只是添加了“pdf”这个打印配置，但它并不是默认的打印配置，然而通过最后一句只是按照当前默认的打印配置打印出来的，如果是的话，我怎样才能把“pdf”设置为默认的呢？