Свойство Report.ScaleTop (Access)

Статья
04/07/2023

Используйте свойство ScaleTop , чтобы указать единицы для вертикальных координат, описывающих расположение верхнего края страницы, когда метод Circle, Line, Pset или Print используется во время печати или предварительного просмотра отчета или его выходные данные сохраняются в файле. Для чтения и записи, Single.

Синтаксис

expression. ScaleTop

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

Замечания

Вы можете задать свойство ScaleTop с помощью макроса или процедуры события Visual Basic , заданной параметром свойства OnPrint раздела.

Используя эти свойства и связанные свойства ScaleHeight и ScaleWidth , можно настроить пользовательскую систему координат как с положительными, так и с отрицательными координатами. Все четыре из этих свойств Scale взаимодействуют со свойством ScaleMode следующими способами:

При задании любого другого свойства Scale значение для свойства ScaleMode автоматически устанавливается значение 0.
Если для свойства ScaleMode задано число больше 0, для свойств ScaleHeight и ScaleWidth устанавливается новая единица измерения, а для свойств ScaleLeft и ScaleTop устанавливается значение 0. Кроме того, параметры свойств CurrentX и CurrentY изменяются в соответствии с новыми координатами текущей точки.

Метод Scale также можно использовать для задания свойств ScaleHeight, ScaleWidth, ScaleLeft и ScaleTop в одной инструкции.

Примечание.

Свойство ScaleTop не совпадает со свойством Top .

Пример

В следующем примере метод Circle используется для рисования круга и создания кругового среза внутри круга. Затем он использует свойства FillColor и FillStyle для цвета кругового среза в красный цвет. Он также рисует линию от левого верхнего угла до центра круга.

Чтобы попробовать этот пример в Microsoft Access, создайте новый отчет. Задайте для свойства OnPrint раздела Подробности значение [Процедура события]. Введите следующий код в модуль отчета, а затем переключитесь на предварительный просмотр.

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

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

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

Share via