Метод Report.Scale (Access)

Статья
04/07/2023

Метод Scale определяет систему координат для объекта Report .

Синтаксис

expression. Масштабирование (флаги, x1, y1, x2, y2)

Выражение Переменная, представляющая объект Report .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Flags	Обязательный	Integer
x1	Обязательный	Single	Значение горизонтальной координаты, определяющее положение левого верхнего угла объекта.
y1	Обязательный	Single	Значение вертикальной координаты, определяющее положение левого верхнего угла объекта.
x2	Обязательный	Single	Значение для горизонтальной координаты, определяющее положение нижнего правого угла объекта.
y2	Обязательный	Single	Значение для вертикальной координаты, определяющее положение нижнего правого угла объекта.

Возвращаемое значение

Отсутствует

Примечания

Используйте этот метод только в процедуре события или макросе, заданном свойством события OnPrint или OnFormat для раздела отчета или свойством события OnPage для отчета.

Используйте метод Scale , чтобы сбросить систему координат до любого выбранного масштаба. При использовании метода Scale без аргументов система координат сбрасывается до твипов. Метод Scale влияет на систему координат для метода Print и графических методов отчета, которые включают методы Circle, Line и PSet .

Пример

В следующем примере рисуется круг с одним масштабом, а затем используется метод Scale для изменения масштаба и рисования другого круга с новым масштабом.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через