Метод Report.TextHeight (Access)

Статья
04/07/2023

Метод TextHeight возвращает высоту текстовой строки так, как она будет напечатана в текущем шрифте объекта Report .

Синтаксис

expression. TextHeight (Expr)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Expr	Обязательный	String	Текстовая строка, для которой будет определена высота текста.

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

Одинарное

Замечания

Используйте метод TextHeight , чтобы определить объем вертикального пространства, который потребуется текстовой строке в текущем шрифте при форматировании и печати отчета. Например, для текстовой строки, отформатируемой в arial из 9 точек, потребуется другое пространство, чем в 12-точечной курьерской службе. Чтобы определить текущий шрифт и размер шрифта для текста в отчете, проверьте параметры свойств FontName и FontSize отчета.

Значение, возвращаемое методом TextHeight , выражается в терминах системы координат, действовавшей для отчета, как определено методом Scale . Используйте свойство ScaleMode для определения системы координат, действующей в настоящее время для отчета.

Если аргумент StrExpr содержит внедренную каретки, метод TextHeight возвращает совокупную высоту строк, включая начальное пространство над и под каждой строкой. Используйте значение, возвращаемое методом TextHeight , чтобы вычислить необходимое пространство и расположение для нескольких строк текста в отчете.

Пример

В следующем примере методы TextHeight и TextWidth используются для определения объема вертикального и горизонтального пространства, необходимого для печати текстовой строки в текущем шрифте отчета.

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

Private Sub Detail_Print(Cancel As Integer, _ 
 PrintCount As Integer) 
 ' Set unit of measure to twips (default scale). 
 Me.Scalemode = 1 
 ' Print name and font size of report font. 
 Debug.Print "Report Font: "; Me.FontName 
 Debug.Print "Report Font Size: "; Me.FontSize 
 ' Print height and width required for text string. 
 Debug.Print "Text Height (Twips): "; _ 
 Me.TextHeight("Product Report") 
 Debug.Print "Text Width (Twips): "; _ 
 Me.TextWidth("Product Report") 
End Sub

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

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

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