Maybe you should import and then assign a page setup from a different dwg just prior to printing.
I have a buttons that import all of our different page setups. The button macro is this:
(requires the layout to be active that you want to assign the page setup)
^C^C^P_Expert 2 _-psetupin "V:/CAD_Standards/Office_Locations/Minneapolis/Plotters/Page Setups/Mpls-Pagesetup-Templates.dwg" "11x17-Mpls-Template" _Expert 0 (command "-plot" "_N" (getvar"ctab") "11x17-Mpls-Template" "" "_N" "_Y" "_N") ^C^C
The expert setting stops the get file dialog from appearing when the command is run via LISP command. " -psetupin" is not covered anywhere in the VBA object model, rather all the components of a page setup are. You will have to change the file path and page setup name in the code to what you have. We store all the page setups for one office location in one central drawing.
Maybe do a sendcommand. This gets ugly, but here is a function I just wrote that accomplishes it. (Requires the layout to be active that you want to assign the page setup)
Code:
Function setPsetup(pSetupName As String, pSetupFile As String)
Dim sCommand As String
Dim qm As String
'Dim psetupName As String
'Dim pSetupFile As String
'pSetupName = "11x17-Mpls-Template"
'pSetupFile = "V:/CAD_Standards/UEI/Office_Locations/Minneapolis/Plotters/Page Setups/Mpls-Pagesetup-Templates.dwg"
qm = """"
ThisDrawing.SetVariable "EXPERT", 2
sCommand = "(command " & qm & "_-psetupin" & qm & ")" & vbCr & _
pSetupFile & vbCr & _
pSetupName & vbCr & _
"(command " & qm & "-plot" & qm & " " & qm & "_N" & qm & _
" (getvar" & qm & "ctab" & qm & ") " & qm & "11x17-Mpls-Template" & _
qm & " " & qm & qm & " " & qm & "_N" & qm & " " & qm & "_Y" & qm & _
" " & qm & "_N" & qm & ")" & vbCr
ThisDrawing.SendCommand sCommand
ThisDrawing.SetVariable "EXPERT", 0
DoEvents
End Function
I would recommend not having spaces in the paths or setupnames as rule of thumb, as it can be used in more macro types much easier then.