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

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

  • Статья

Используйте свойство FontSize , чтобы указать размер точек для текста в следующих ситуациях:

  • При отображении или печати элементов управления в формах и отчетах.
  • При использовании метода Print в отчете.

Для чтения и записи, Integer.

Синтаксис

expression. Fontsize

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

Замечания

Свойство FontSize использует следующие параметры.

Setting Описание
8 (По умолчанию для всех отчетов и элементов управления, кроме кнопок команд) Текст имеет тип из 8 точек.
10 (По умолчанию для кнопок команд) Текст имеет тип из 10 точек.
Другие размеры Текст имеет указанный размер.

Вы можете задать значение по умолчанию для этого свойства, используя стиль элемента управления по умолчанию или свойство DefaultControl в Visual Basic.

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

В Visual Basic свойство FontSize задается с помощью числового выражения, равного требуемому размеру шрифта. Параметр для свойства FontSize может находиться в диапазоне от 1 до 127 включительно.

Пример

В следующем примере используется метод 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 и обратная связь.