Printer Dialogue

[Guest]

Is it possible to get a value from the printer dialogue box? What I am trying
to do is to get the user to select the printer that they want from the
dialogue box which is displayed using
Application.Dialogs(xlDialogPrinterSetup).Show. I would like this printer
then to be shown on an excel sheet. Is this possible?

 

[Tom Ogilvy]

if Application.Dialogs(xlDialogPrinterSetup).Show <> False then
Cells(1,1).Value = Application.ActivePrinter

End if