Свойство ToggleButton.FontName (Access)

  • Статья

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

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

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

Синтаксис

expression. FontName

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

Замечания

Параметр свойства FontName — это имя шрифта, в котором отображается текст.

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

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

Доступность шрифтов зависит от вашей системы и принтера. Если вы выберете шрифт, который не может отображаться в вашей системе или который не установлен, Windows подставляет аналогичный шрифт.

Пример

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