Aktuelle Seite mit nur einem Mausklick ausdrucken

Beim Überarbeiten mehrseitiger Dokumenten möchte man oft nur die aktuelle Seite und nicht gleich das ganze Dokument ausdrucken. Für diesen Zweck kann die Schaltfläche »Drucken« allerdings nicht verwendet werden, denn ein Klick auf diesen Button druckt das ganze aktuelle Dokument, ohne daß zuvor eine Dialogbox für Optionsänderungen - wie die Angabe eines Seitenbereichs - erscheint. Es bleibt Ihnen also nicht erspart, das Menü »Datei | Drucken« zu öffnen und die Option »Aktuelle Seite« anzuklicken, bevor Sie die Daten mit einem weiteren Mausklick auf »OK« an den Drucker schicken.

Sie können sich diesen Aufwand jedoch sparen, indem Sie ein Makro zum Ausdruck der aktuellen Seite aufzeichnen und als Schaltfläche in der Symbolleiste neben das Drucker-Symbol plazieren. Um das Makro aufzuzeichnen, wählen Sie »Extras | Makro« und geben einen »Makronamen« ein - also zum Beispiel »Aktuelle Seite«. Nach einem Klick auf die oberste Schaltfläche »Aufzeichnen« öffnen Sie »Datei | Drucken«, klicken auf die Option »Aktuelle Seite« und anschließend auf »OK«. Word druckt dann die aktuelle Seite, und Sie können die Aufzeichnung mit einem Klick auf die entsprechende Schaltfläche im Makro-Fenster »Beenden«. Nun müssen Sie das neue Makro noch als Schaltfläche einrichten. Dafür klicken Sie eine der Symbolleisten mit der rechten Maustaste an und wählen »Anpassen«. Im Bereich »Kategorien« wählen Sie anschließend »Makros« aus und ziehen den Eintrag des soeben aufgezeichneten Makros einfach auf die Standard-Symbolleiste neben die »Drucken«-Schaltfläche. Mit »Zuordnen« wählen Sie eine der vorhandenen Schaltflächen aus, oder Sie klicken auf »Bearbeiten», um ein eigenes Layout für den Button zu kreieren. Die neue Schaltfläche startet ab sofort den Ausdruck der aktuellen Seite, ohne Ihnen zuvor eine Dialogbox zu präsentieren.

Makro zum Ausdruck der aktuellen Seite

Sub MAIN

DateiDrucken .DruckDateiAnfügen = 0, .Bereich = "2", .InDateiUmleitenName = "", .Von = "", .Bis = "", .Art = 0, .Exemplare = "1", .Seiten = "", .Reihenfolge = 0, .InDateiUmleiten = 0, .KopienSortieren = 1, .DateiName = ""

End Sub