This might be useful, allows you to switch a printer, print something, then restore the default printer.
Code:
Sub SwitchPrinter()
Dim PRT As Printer
' Get current default printer
10 Set PRT = Application.Printer
20 Debug.Print "Current default is " & PRT.DeviceName
' Set default printer
30 Set Application.Printer = Application.Printers("\\AMD_XP\Brother MFC-240C USB Printer (Copy 1)")
' Print something, e.g.
40 Debug.Print "Switched to " & Application.Printer.DeviceName
'Print a specific file
50 ' DoCmd.PrintOut TablA 'uncomment to print on the revised printer
' Restore original printer
' Set Application.Printer = prt 'uncomment to restore the previous default printer
60 Debug.Print "Reset default is " & PRT.DeviceName
End Sub