Método Report.Scale (Access)

El método Scale define el sistema de coordenadas de un objeto Report.

Sintaxis

expresión. Escala (Flags, x1, y1, x2, y2)

Expresión Variable que representa un objeto Report .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Flags	Obligatorio	Integer
x1	Obligatorio	Single	Valor de la coordenada horizontal que define la posición de la esquina superior izquierda del objeto.
y1	Obligatorio	Single	Valor de la coordenada vertical que define la posición de la esquina superior izquierda del objeto.
x2	Obligatorio	Single	Valor de la coordenada horizontal que define la posición de la esquina inferior derecha del objeto.
y2	Obligatorio	Single	Valor de la coordenada vertical que define la posición de la esquina inferior derecha del objeto.

Valor devuelto

Nothing

Comentarios

Use este método solo en un procedimiento de evento o una macro especificada por la propiedad de evento OnPrint o OnFormat para una sección de informe, o la propiedad de evento OnPage para un informe.

Use el método Scale para restablecer el sistema de coordenadas a cualquier escala que elija. El uso del método Scale sin argumentos restablece el sistema de coordenadas a twips. El método Scale afecta al sistema de coordenadas para el método Print y los métodos de gráficos de informes, incluidos los métodos Circle, Line y PSet.

Ejemplo:

En el ejemplo siguiente se dibuja un círculo con una escala y, a continuación, se usa el método Scale para cambiar la escala y dibujar otro círculo con la nueva escala.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 DrawCircle 
End Sub 
 
Sub DrawCircle() 
 Dim sngHCtr As Single, sngVCtr As Single 
 Dim sngNewH As Single, sngNewV As Single 
 Dim sngRadius As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 ' Draw circle. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius 
 ' New horizontal scale. 
 sngNewH = Me.ScaleWidth * 0.9 
 ' New vertical scale. 
 sngNewV = Me.ScaleHeight * 0.9 
 ' Change to new scale. 
 Me.Scale(0, 0)-(sngNewH, sngNewV) 
 ' Draw circle. 
 Me.Circle (sngHCtr + 100, sngVCtr), sngRadius, RGB(0, 256, 0) 
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.