Winword-Druckmenü per Makro aufrufen
Mein Makro soll einen beliebigen Text in einen vorgefertigten Kopfbogen einsetzen und anschließend ausdrucken, wobei ich das Winword-8-Druckmenü einblenden will. Nur so kann ich vorher beispielsweise die Seitenzahl und die Anzahl der Ausdrucke jedesmal selbst bestimmen. Nun kann ich das Druckmenü mit seinen Auswahlmöglichkeiten nicht in mein Makro einarbeiten, sondern nur beim Aufzeichen des Makros die Druckfunktion als solche integrieren. Ein seitenselektives Drucken samt Kopfbogen ist so nicht möglich. Wie läßt sich das Makro anhalten, damit ich erst im Druckmenü nach meinem Geschmack auswählen kann und Winword anschließend druckt?
Die Makroaufzeichnung von Winword ist sicherlich eine feine Sache, doch prinzipiell sind ihr einfach Grenzen gesetzt. Damit alles nach dem Aufzeichnen wirklich automatisch abläuft, speichert Winword nur die Einstellungen der Dialoge und verweigert dem Anwender jegliches Eingreifen. Das ist sicherlich auch im Sinne des Erfinders.
Wenn Sie von dieser Einstellung abweichen wollen, kommen Sie nicht umhin, in den Ablauf des Makros selbst einzugreifen, also zu programmieren. Dazu müssen Sie mit dem Befehl Extras – Makro – Makros – Bearbeiten das aufgezeichnete Makro zum Editieren öffnen. Im VBA-Editor suchen Sie dann den Befehl Application.Printout, der den eigentlichen Druckbefehl veranlaßt. Ersetzen Sie dessen gesamten Aufruf durch die folgende Zeile:
Dialogs (WDDialogFilePrint) .Show¶Dieser Befehl ruft den Winword-Druckdialog auf und startet den Druck, sobald Sie den Dialog mit dem Schalter OK bestätigen. Wenn Sie mit [F1] die Hilfe zu diesem Befehl aufrufen, können Sie dort weitere Konstanten, die mit der Kombination WD anfangen, für andere Dialoge finden. Die Methode Show zeigt einen Dialog und führt dann dessen Aktion aus. Wenn Sie den Dialog nur anzeigen wollen, benutzen Sie die Methode Display.