There is an answer given by Allen Browne in a previous post:
Use a name that matches the one in the Printers collection, e.g.:
? Application.Printers(1).DeviceName
If that returns:
HP DeskJet 930C/932C/935C
you would use:
Application.Printer = Application.Printers(1)
or
Application.Printer = Application.Printers("HP DeskJet 930C/932C/935C")
For a downloadable example of using those objects, see:
Printer Selection Utility
at:
http://members.iinet.net.au/~allenbrowne/AppPrintMgt.html