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.