Compartir a través de

evento Report.Page (Access)

  • Artículo

El evento Page se produce después de que Microsoft Access da formato a una página de un informe para imprimirla, pero antes de imprimir la página. Use este evento para dibujar un borde alrededor de la página o agregar otros elementos gráficos a la página.

Sintaxis

expresión. Página

Expresión Variable que representa un objeto Report .

Valor devuelto

Nothing

Comentarios

Para ejecutar una macro o un procedimiento de evento cuando se produzca este evento, establezca la propiedad OnPage en el nombre de la macro o en [Procedimiento de evento].

Este evento se produce después de todos los eventos Format del informe y después de todos los eventos Print de la página, pero antes de que la página se imprima realmente.

Normalmente se usan los métodos Line, Circle o PSet en el procedimiento de evento Page para crear los gráficos deseados para la página.

El evento NoData se produce antes del primer evento Page del informe.

Ejemplo:

En el siguiente ejemplo se muestra cómo se dibuja un rectángulo alrededor de una página de informe mediante el método Line. De manera predeterminada, las propiedades ScaleWidth y ScaleHeight devuelven el ancho y el alto internos del informe.

Private Sub Report_Page() 
    Me.Line(0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B 
End Sub

En el ejemplo siguiente se muestra cómo usar el evento Page para agregar una marca de agua a un informe antes de imprimirlo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.