Compartir a través de

Propiedad Report.ScaleTop (Access)

  • Artículo

Utilice la propiedad ScaleTop para especificar las unidades de las coordenadas verticales que describen la ubicación del borde superior de una página cuando se usa el método Circle, Line, Pset o Print mientras se imprime o se obtiene una vista previa de un informe, o cuando su salida se guarda en un archivo. Single de lectura y escritura.

Sintaxis

expresión. ScaleTop

Expresión Variable que representa un objeto Report .

Comentarios

Puede establecer la propiedad ScaleTop mediante una macro o un procedimiento de evento de Visual Basic especificado por el valor de la propiedad OnPrint de una sección.

Mediante el uso de estas propiedades y las propiedades relacionadas ScaleHeight y ScaleWidth, puede configurar un sistema de coordenadas personalizado con coordenadas positivas y negativas. Cuatro de estas propiedades de escala interactúan con la propiedad ScaleMode de las siguientes maneras:

  • Cualquier otra propiedad de escala en cualquier valor establece automáticamente la propiedad ScaleMode en 0.

  • Si se establece la propiedad ScaleMode en un número mayor que 0 cambia los valores de las propiedades ScaleHeight y ScaleWidth a la nueva unidad de medida y establece las propiedades ScaleLeft y ScaleTop en 0. Además, la configuración de las propiedades CurrentX y CurrentY cambia para reflejar las nuevas coordenadas del punto actual.

También puede utilizar el método Scale para establecer las propiedades ScaleHeight, ScaleWidth, ScaleLeft y ScaleTop propiedades en una instrucción.

Nota:

[!NOTA] La propiedad ScaleTop no es el mismo que la propiedad Top.

Ejemplo:

El ejemplo siguiente utiliza el método Circle para dibujar un círculo y crear un sector dentro del círculo. A continuación, usa las propiedades FillColor y FillStyle para colorear el segmento circular en rojo. También dibuja una línea desde la esquina superior izquierda hasta el centro del círculo.

Para probar este ejemplo en Microsoft Access, cree un nuevo informe. Establezca la propiedad AlImprimir (OnPrint) de la sección Detalles a [Procedimiento de evento]. Escriba el código siguiente en el módulo del informe y, a continuación, cambie a Vista previa de impresión.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 
 Const conPI = 3.14159265359 
 
 Dim sngHCtr As Single 
 Dim sngVCtr As Single 
 Dim sngRadius As Single 
 Dim sngStart As Single 
 Dim sngEnd As Single 
 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle. 
 sngStart = -0.00000001 ' Start of pie slice. 
 
 sngEnd = -2 * conPI / 3 ' End of pie slice. 
 Me.FillColor = RGB(255, 0, 0) ' Color pie slice red. 
 Me.FillStyle = 0 ' Fill pie slice. 
 
 ' Draw Pie slice within circle 
 Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
 
 ' Draw line to center of circle. 
 Dim intColor As Integer 
 Dim sngTop As Single, sngLeft As Single 
 Dim sngWidth As Single, sngHeight As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngTop = Me.ScaleTop ' Top inside edge. 
 sngLeft = Me.ScaleLeft ' Left inside edge. 
 sngWidth = Me.ScaleWidth / 2 ' Width inside edge. 
 sngHeight = Me.ScaleHeight / 2 ' Height inside edge. 
 intColor = RGB(255, 0, 0) ' Make color red. 
 
 ' Draw line. 
 Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor 
 
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.