Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Tritt auf, bevor die Publikation gedruckt oder in der Vorschau angezeigt wird.
Syntax
Ausdruck. BeforePrint (Doc, Cancel)
Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Doc | Erforderlich | Document | Die aktuelle Publikation. |
| Cancel | Erforderlich | Boolean | False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieser Parameter auf True festgelegt wird, wird die Publikation nicht gedruckt, wenn das Verfahren abgeschlossen ist. |
Hinweise
Das BeforePrint -Ereignis wird ausgelöst, wenn das Dokument vollständig geladen ist und die Onload-Ereignisse zurückgegeben wurden. Drucken tritt nicht auf, bis der Ereignishandler ausgeführt wird.
Weitere Informationen zur Verwendung von Ereignissen mit dem Application-Objekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.
Beispiel
Der folgende Microsoft Visual Basic für Applikationen (VBA)-Makro veranschaulicht, wie das BeforePrint -Ereignis behandeln. Es wird die Meldung Benachrichtigen des Benutzers, die das Dokument gedruckt werden soll.
Private Sub pubApplication_BeforePrint(ByVal Doc As Document, Cancel As Boolean )
MsgBox "Printing of " & Doc.Name & " is about to occur ."
End Sub
For this event to occur, you must place the following line of code in the General Declarations section of your module.
Private WithEvents pubApplication As Application
Anschließend müssen Sie die folgende Initialisierungsprozedur ausführen.
Public Sub Initialize_pubApplication()
Set pubApplication = Publisher.Application
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.