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

Alan.Shi · 发表于 2010-5-11 10:40:00

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

Alan.Shi · 发表于 2010-5-12 19:18:00

怎么都没人帮我看看啊，我找了些然后加工了下，不知道为什么打印样式怎么也用不上，请大侠们帮我看看哪出了问题啊
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 · 发表于 2010-5-14 15:00:00

现在改成这样的了，但是还是不行啊，请哪位高人帮我看下
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