» Change the default printer using VBA in Microsoft Excel

VBA macro tip contributed by Erlandsen Data Consulting offering Microsoft Excel Application development, template customization, support and training solutions

CATEGORY - Printing in VBA VERSION - All Microsoft Excel Versions

This example macro shows how to print a selected document to another printer then the default printer.
This is done by changing the property Application.ActivePrinter :

Sub PrintToAnotherPrinter()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "microsoft fax on fax:" 
    ' change printer
    ActiveSheet.PrintOut 
    ' prints the active sheet
    Application.ActivePrinter = STDprinter 
    ' change back to standard printer
End Sub