VBA Beispiel 2 Drucker

Die Aufgabe: Ihr Kunde hat mehrere Drucker. Unter anderem einen Farbdrucker und einen Laserdrucker. Nun möchte er am Bildschirm eine Symbolleiste mit zwei Druckersymbolen. Ein Symbol soll den Farbdrucker, das andere den Laserdrucker darstellen. Beim Anklicken dieser Symbole soll nur die aktuelle Seite des aktuellen Dokumentes auf den entsprechenden Drucker ausgegeben werden. Wenn der Anwender anschliessend den Befehl Datei drucken verwendet, soll jedoch wieder der ursprünglich eingestellte Standarddrucker aktiv sein.

Aufzeichnen des Codes

• Wählen Sie im Menü Extras->Makro->Aufzeichnen.
• Benennen Sie das Makro nach Ihren eigenen Vorstellungen.
• Zeichnen Sie folgende Befehle auf:
  - Datei Drucken
     - Drucker wechseln
     - Nur aktuelle Seite drucken
• Zum beenden der Aufzeichnung klicken Sie auf das Symbol "Aufzeichnung beenden" (blaues Viereck).
• Starten Sie nun den Visual Basic Editor.
• Den aufgezeichneten Code finden Sie unter Normal->Module->NewMacros.

Sub ZweiDrucker()
'
' ZweiDrucker Makro
' Makro aufgezeichnet am 23.05.01 von Markus Winter
'
    ActivePrinter = "HP DeskJet 690C"
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Dieser Code löst noch nicht unsere Anforderung, aber er zeigt einige wichtige Befehle welche wir benötigen. Wir erstellen nun folgende Zwei Prozeduren:

Sub PrintColor1Page()
   vAlterDrucker = ActivePrinter
   ActivePrinter = "HP DeskJet 690C"
   Application.PrintOut Range:=wdPrintCurrentPage
   ActivePrinter = vAlterDrucker
End Sub

und

Sub PrintLaser1Page()
   vAlterDrucker = ActivePrinter
   ActivePrinter = "HP LaserJet 5"
   Application.PrintOut Range:=wdPrintCurrentPage
   ActivePrinter = vAlterDrucker
End Sub

• In der Variabel vAlterDrucker merken wir uns den eingestellten Drucker welcher unter ActivePrinter abfragbar ist.
• Mit ActivePrinter = "..." wird ein neuer Standarddrucker bestimmt.
• Application.PrintOut druckt das aktuelle Dokument. Mit dem Parameter Range wird bestimmt dass nur die aktuelle Seite ausgedruckt wird.
• Zuletzt wird der in vAlterDrucker gespeicherte Drucker wieder zum Standarddrucker gemacht.

Erstellen der Symbolleisten

• Wählen Sie in Word im Menü Ansicht->Symbolleisten->Anpassen.
• Im Register "Symbolleisten" klicken Sie auf [Neu].
• Geben Sie Ihrer Symbolleiste den Namen "Drucker"
• Im Register Befehle wählen Sie die Kategorie Makros.
• Ziehen Sie mit der Maus nacheinander die folgenden Befehle auf die neu entstandene Symbolleiste:
  - Normal.NewMacros.PrintColor1Page
  - Normal.NewMacros.PrintLaser1Page

Die beiden Symbole werden entweder das Bild "Smilie" erhalten oder den Namen des Befehles tragen. Das wollen wir nun anpassen

• Bei noch immer geöffneter Dialogbox anpassen klicken Sie mit der rechten Maustaste auf den originalen Drucker in der Symbolleiste.
• Aus dem Kontextmenü wählen Sie "Schaltflächensymbol kopieren".
• Mit der rechten Maustaste klicken Sie auf den von Ihnen erzeugten Knopf und wählen "Schaltfläch einfügen".
• Den identischen Vorgang wiederholen Sie mit dem zweiten von Ihnen erstellten Symbol.

Nun soll das Druckersymbol in unserer eigenen Leiste angepasst werden.

• Klicken Sie mit der rechten Maustaste auf den Befehl "PrintColor1Page" und wählen Sie "Schaltflächensymbol bearbeiten" aus dem Kontext. Es erscheint nebenstehende Dialogbox.
• Verändern Sie die einzelnen Pixel des Drucker-Symbol
• Schliessen Sie den "Schaltflächeneditor" mit [OK]
• Aus dem Kontextmenü Ihres neuen Druckersymboles können Sie noch weitere eigenschaften bestimmen:
  - Name (Clipcontrol-Text der Schaltfläche)
  - Standard (Nur Symbol, ohne Befehlsname)
• Schliessen Sie die Dialogbox "Anpassen".

Bemerkungen zu Word:

Sollten Sie den falschen Befehl auf die Symbolleiste gezogen haben, so müssen Sie das Symbol löschen und den richtigen Befehl neu auf die Symbolleiste ziehen. Damit Ihnen das selbst kreierte Symbol nicht verloren geht, holen Sie zuerst den neuen Befehl, kopieren dann das Symbol bevor Sie das alte Symbol löschen (Aus der Symbolleiste heraus ziehen.

Bemerkungen zu Excel

In Excel existiert im Kontextmenü der Befehl: Makro zuweisen welches die in Word notwendigen Schritte zu korrektur eines zugewiesenen Befehles überflüssig macht.