set printer i VB kode

Brug følgende:

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

kanon lige det som var mit problem. Mange Tak