Replying to:
10-24-2018
05:27 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-24-2018
05:27 AM
Sub TEST()
' Initialize the acad plot, configs and configurations
Dim ptObj As AcadPlot
Dim ptConfigs As AcadPlotConfigurations
Dim plotConfig As AcadPlotConfiguration
' Create a new plot configuration with all needed parameters
Set ptObj = ThisDrawing.Plot
Set ptConfigs = ThisDrawing.PlotConfigurations
' Test
Set plotConfig = ptConfigs.Item("Spools_a2")
ThisDrawing.ActiveLayout.ConfigName = plotConfig.Name
End Sub
That does not work, but this is setting the Plot config, not the page setup. What I am doing manually is
- Set the printer/plotter -> dwg to pdf.pc3
- select a page setup
- apply to layout