Propiedad Report.ScaleLeft (Access)
Utilice la propiedad ScaleLeft para especificar las unidades de las coordenadas horizontales que describen la ubicación del borde izquierdo 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.
expresión. ScaleLeft
Expresión Variable que representa un objeto Report .
Puede establecer la propiedad ScaleLeft 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 ScaleLeft no es el mismo que la propiedad Left.
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
¿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.