Propiedad Report.CurrentX (Access)
Utilice la propiedad CurrentX (junto con la propiedad CurrentY ) para especificar las coordenadas horizontales y verticales de la posición inicial del siguiente método de impresión y dibujo en un informe. Single de lectura y escritura.
Sintaxis
expresión. CurrentX
Expresión Variable que representa un objeto Report .
Comentarios
Por ejemplo, se pueden utilizar estas propiedades para determinar si se va a dibujar el punto central de un círculo en una sección de un informe.
Las coordenadas se miden desde la esquina superior izquierda de la sección del informe que contiene la referencia a la propiedad CurrentX o CurrentY. El valor de la propiedad CurrentX es 0 en el borde izquierdo de la sección y el valor de la propiedad CurrentY es 0 en su límite superior.
Puede establecer las propiedades CurrentX y CurrentY en un procedimiento de evento especificado por el valor de la propiedad OnPrint de una sección de informe.
Utilice la propiedad ScaleMode para definir la unidad de medida, como puntos, píxeles, caracteres, pulgadas, milímetros o centímetros, en las que se van a basar las coordenadas.
Al usar los métodos gráficos siguientes, se cambian los valores de las propiedades CurrentX y CurrentY tal como se indica.
| Método | Establece las propiedades CurrentX, CurrentY en |
|---|---|
| Circle | El centro del objeto. |
| Line | Punto final de la línea (coordenadas x2, y2 ). |
| El siguiente posición de impresión. |
Ejemplo:
En el ejemplo siguiente se usa el método Print para mostrar texto en un informe denominado Report1. Utiliza los métodos TextWidth y TextHeight para centrar el texto verticalmente y horizontalmente.
Private Sub Detail_Format(Cancel As Integer, _
FormatCount As Integer)
Dim rpt as Report
Dim strMessage As String
Dim intHorSize As Integer, intVerSize As Integer
Set rpt = Me
strMessage = "DisplayMessage"
With rpt
'Set scale to pixels, and set FontName and
'FontSize properties.
.ScaleMode = 3
.FontName = "Courier"
.FontSize = 24
End With
' Horizontal width.
intHorSize = Rpt.TextWidth(strMessage)
' Vertical height.
intVerSize = Rpt.TextHeight(strMessage)
' Calculate location of text to be displayed.
Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)
Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)
' Print text on Report object.
Rpt.Print strMessage
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.