Is there a way to check the current default printer, so
that if I use another printer (e.g. PDF writer), I can
reset the original one using

Application.ActivePrinter = "...."

TIA
peterG

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

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