How to read settings from xlDialogPrint

[John G.]

I need to print several worksheets from a Excel command button click event
procedure. A printer selection dialog is to be displayed at the beginning
of the procedure, then selected settings are to be applied to the worksheets
before printing.

Private Sub btnTestPrint1_Click()
WorkSheets(1).Activate
Application.Dialogs(xlDialogPrint).Show

' Read what the user set

For i = 2 To 5
WorkSheets(i).PrintOut(PrintToFile:=<whatever the user set>, ...
Next i
End Sub

Also, if a user makes a change to the printer setup via the "Properties..."
button on that dialog, how do I find and duplicate those settings.

Any other suggestions will be greatly appreciated.

Thanks.
John G.

 

[John G.]

Using Excel 2003 SP3.

Thanks.
John G.