basnederveen
in reply to: ed57gmc

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

 

Page setup.JPG