Compartir por

evento Report.Page (Access)

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.

  • Last updated on