Report.Page-Ereignis (Access)
Das Page-Ereignis tritt auf, nachdem von Microsoft Access eine Seite eines Berichts zum Drucken formatiert wurde, jedoch bevor die Seite gedruckt wird. Verwenden Sie dieses Ereignis, um einen Rahmen um die Seite zu zeichnen oder der Seite andere Grafikelemente hinzuzufügen.
Syntax
Ausdruck. Seite
Ausdruck Eine Variable, die ein Report-Objekt darstellt.
Rückgabewert
Nichts
Bemerkungen
Zum Ausführen eines Makros oder einer Ereignisprozedur beim Auftreten dieses Ereignisses legen Sie die OnPage-Eigenschaft auf den Namen des Makros oder auf [Ereignisprozedur] fest.
Dieses Ereignis tritt nach allen Format-Ereignissen für den Bericht und nach allen Print-Ereignissen für die Seite, aber vor dem tatsächlichen Drucken der Seite auf.
Normalerweise verwenden Sie die Methoden Line, Circle oder PSet in der Page-Ereignisprozedur, um die gewünschten Grafikelemente für die Seite zu erstellen.
Das NoData-Ereignis tritt vor dem ersten Page-Ereignis für den Bericht auf.
Beispiel
Im folgenden Beispiel wird gezeigt, wie Sie mit der Line-Methode ein Rechteck um eine Berichtsseite zeichnen können. Durch die Eigenschaften ScaleWidth und ScaleHeight wird standardmäßig die interne Breite und Höhe des Berichts zurückgegeben.
Private Sub Report_Page()
Me.Line(0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
End Sub
Im folgenden Beispiel ist die Verwendung des Page-Ereignisses zum Hinzufügen eines Wasserzeichens zu einem Bericht dargestellt, bevor dieser gedruckt wird.
Private Sub Report_Page()
Dim strWatermarkText As String
Dim sizeHor As Single
Dim sizeVer As Single
#If RUN_PAGE_EVENT = True Then
With Me
'// Print page border
Me.Line (0, 0)-(.ScaleWidth - 1, .ScaleHeight - 1), vbBlack, B
'// Print watermark
strWatermarkText = "Confidential"
.ScaleMode = 3
.FontName = "Segoe UI"
.FontSize = 48
.ForeColor = RGB(255, 0, 0)
'// Calculate text metrics
sizeHor = .TextWidth(strWatermarkText)
sizeVer = .TextHeight(strWatermarkText)
'// Set the print location
.CurrentX = (.ScaleWidth / 2) - (sizeHor / 2)
.CurrentY = (.ScaleHeight / 2) - (sizeVer / 2)
'// Print the watermark
.Print strWatermarkText
End With
#End If
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für