VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Druck

Bereich

Drucker

Thema

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

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

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Drucker