You don't mention what version\ of ms-access.
In access 2002 and later, there is a built in printer object, and it lets
you switch the printer with ease.
You can use:
Set Application.Printer = Application.Printers("HP LaserJet Series II")
The above means you don't need my code.
So, to save/switch, you can use:
dim strDefaultPrinter as string
' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName
' switch to printer of your choice:
Set Application.Printer = Application.Printers("HP LaserJet Series II")
do whatever.
Swtich back.
Set Application.Printer = Application.Printers(strDefaultPrinter)
If you are using a earlier versions, then you can use my lightweight
"simple" printer switch code here:
http://www.attcanada.net/~kallal.msn.../msaccess.html
--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
pl*****************@msn.com http://www.attcanada.net/~kallal.msn