Властивість «Жирний шрифт» (FontBold)

Застосовується до
Access для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Стосується

Об’єкт ComboBox Об’єкт Report
Об’єкт CommandButton Колекція TabControl
Об’єкт FormatCondition Об’єкт TextBox
Об’єкт Label Об’єкт ToggleButton
Об’єкт ListBox

За допомогою властивості FontBold можна вказати, чи текст виділяється жирним шрифтом у таких ситуаціях:

  • відображення або друк елементів керування у формах і звітах;
  • використання методу Друк у звіті.

Примітки

Властивість FontBold може мати наведені нижче значення.

Параметр Опис
Істина Текст виділяється жирним.
False (Хибність) Текст не виділяється жирним (стандартне значення).

      

Примітка.

Властивість FontBold можна встановити лише за допомогою макросу або коду Visual Basic for Applications (VBA).

Щоб використати властивість FontBold у звіті, спочатку створіть процедуру події Print, яка друкує потрібний текст.

Вигляд шрифту на екрані та під час друку може різнитися залежно від комп’ютера та принтера.

Властивість FontWeight, доступну на аркуші властивостей для елементів керування, можна також використовувати, щоб налаштувати ширину ліній для тексту елемента керування. Властивість FontBold дає змогу швидко виділити текст жирним; властивість FontWeight дає змогу точніше керувати шириною ліній для тексту. У таблиці нижче показано зв’язки між значеннями цих властивостей.

Умова Результат
FontBold (Об'ємний шрифт) = Помилкові FontWeight = Normal (400)
FontBold (Об'ємний шрифт) = Справжній FontWeight = Bold (700)
Вага шрифту< 700 FontBold (Об'ємний шрифт) = Помилкові
Вага шрифту> = 700 FontBold (Об'ємний шрифт) = Справжній

      

Приклад

Наведена нижче процедура події друку друкує жирним шрифтом заголовок звіту та поточну дату в місці звіту з координатами, заданими в параметрах властивостей CurrentX і CurrentY.

Private Sub ReportHeader0_Print(Cancel As Integer, _
     PrintCount As Integer)
    Dim MyDate
    MyDate = Date
    Me.FontBold = True
    ' Print report title in bold.
    Me.Print("Sales Management Report")
    Me.Print(MyDate)
End Sub