You can't get or set the name of the default printer
You can

Sub nameprinter()
MsgBox Application.ActivePrinter
End Sub

And you can set it like this
Application.ActivePrinter = "hp officejet k series on Ne00:"


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"DennisE" wrote in message ...
Peter,

You can't get or set the name of the default printer using Excel VBA code, but
it can be done using the GetDefaultPrinter and SetDefaultPrinter routines that
utilize API calls shown in Microsoft Knowledge Base Article 246772

-- Dennis Eisen