Gruppe
Druck
Problem
Wie kann ich zum Ausdruck einer Tabelle auf den Fritz-Fax-Drucker umschalten und nach dem Ausdruck wieder zum vorher aktiven Drucker zurückkehren?
StandardModule: basMain
Sub Drucken()
Dim sPrinter As String
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = _
"FRITZfax Drucker auf FRITZ!fax:"
Worksheets("Tabelle1").PrintOut
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
End Sub