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

Статья
04/07/2023

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

Синтаксис

expression. ScaleWidth

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

Замечания

По умолчанию используется внутренняя ширина страницы отчета в твипах.

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

Используйте свойство ScaleWidth , чтобы создать настраиваемую шкалу координат для рисования или печати. Например, инструкция ScaleWidth = 100 определяет внутреннюю ширину раздела как 100 единиц, или одну горизонтальную единицу как сотую часть ширины.

Используйте свойство ScaleMode , чтобы определить масштаб на основе стандартной единицы измерения, например точек, пикселей, символов, дюймов, миллиметров или сантиметров.

Установка положительного значения для свойства ScaleWidth приводит к увеличению значения координат слева направо. Установка отрицательного значения приводит к увеличению значения координат справа налево.

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

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

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

Примечание.

Свойство ScaleWidth не совпадает со свойством Width .

Пример

В следующем примере используется метод Print для отображения текста в отчете с именем Report1. Он использует методы TextWidth и TextHeight для центрирования текста по вертикали и горизонтали.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

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

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

Share via