Compartir a través de


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 ).
Print 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.