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