'To plot using a specified (source) page setup, first copy from the print source layout to the other destination layouts
' before plotting all pages
'I would first create a collection of all the destination layout names like this in a loop
for (add the names of source layouts like this to collection)
objCollection.Add ThisDrawing.Layouts(strLayoutName)
next
' now copy the source page setup to all the destination layouts
Sub CopySetup(objSourceLayout As AcadLayout, colTargetLayouts As Collection)
Dim objLayout As AcadLayout
With ThisDrawing
For Each objLayout In colTargetLayouts
objLayout.CopyFrom objSourceLayout ' copy from source Layout to each destination Layout
Next ' objLayout
End With
' Now plot layout tabs
Dim objLayout As AcadLayout
Dim lngCount As Long ' count of selected layouts to plot
Dim strLayoutName As String
Dim strLayoutList() As String ' a array/ list of layouts to plot
' fill the array strLayoutList with names of layouts to plot
With ThisDrawing.Plot
.StartBatchMode lngCount + 1 ' this will show the text batch progress on plot progress dialogs
.NumberOfCopies = 1
.QuietErrorMode = False ' print error message if there is a plot problem
.SetLayoutsToPlot strLayoutList ' plot array of layouts desired
.PlotToDevice ' start plotting
End With
Fred C
