Public Sub PrintToSpecificPrinter(strPrinter As String)
'Created by Helen Feddema 12-Feb-2010
'Last modified by Helen Feddema 12-Feb-2010
On Error GoTo ErrorHandler
Dim strDefaultPrinter As String
'Save current default printer
strDefaultPrinter = Application.ActivePrinter
Debug.Print "Current default printer: " & strDefaultPrinter
'Select a specific printer as new default printer
Application.ActivePrinter = strPrinter
'Print the current document
Application.ActiveDocument.PrintOut
'Set printer back to former default printer
Application.ActivePrinter = strDefaultPrinter
ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Resume ErrorHandlerExit
End Sub