Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zum Druck auf Fax-Drucker umschalten und wieder zurück

Gruppe

Drucker

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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