Does this help?

Sub getprinters()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

--
Don Guillett
SalesAid Software

"prizm1" wrote in message
...
I am trying to develop a form that will dynamically find and list all
available printers including the default printer. From this form I want
to select which printer will be assigned to Application.ActivePrinter.
How do I write a macro to provide the names of all available printers?