Macro to select printer

[JasonLeVan]

Hey guys, I am trying to build a code in a macro so that when this macro prints it selects the HP OfficeJet Pro l7700 fax rather than the default of hp officejet pro l7700 because for this document we want it to automatically fax it. Any help?

 

[MisterBate5]

Not aware of a way to change the printer in VBA (there must be a way though ...) but I use the following to enable the user to choose a different printer for some specific printouts:

Application.Dialogs(xlDialogPrinterSetup).Show

On return, the printer will already have been chosen/set.

 

[MisterBate5]

And then I found this at http://www.exceltip.com/st/Change_the_default_printer_using_VBA_in_Microsoft_Excel/453.html

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