Si applica a
|
Oggetto ComboBox |
Oggetto Report |
|
Oggetto CommandButton |
Raccolta TabControl |
|
Oggetto FormatCondition |
Oggetto TextBox |
|
Oggetto Label |
Oggetto ToggleButton |
|
Oggetto ListBox |
È possibile usare la proprietà FontBold per specificare se un tipo di carattere viene visualizzato in grassetto nelle situazioni seguenti:
-
Quando si visualizzano o si stampano controlli in maschere e report.
-
Quando si usa il metodo Print in un report.
Osservazioni
La proprietà FontBold usa le impostazioni seguenti.
|
Impostazione |
Descrizione |
|
True |
Il testo è in grassetto. |
|
False |
(Impostazione predefinita) Il testo non è in grassetto. |
Nota: È possibile impostare la proprietà FontBold solo usando una macro o il codice di Visual Basic, Applications Edition (VBA).
Per usare la proprietà FontBold in un report, creare prima una routine evento Print che stampa il testo desiderato.
L'aspetto di un carattere sullo schermo e nella stampa può variare a seconda del computer e della stampante in uso.
La proprietà FontWeight, disponibile nella finestra delle proprietà dei controlli, può essere usata anche per impostare lo spessore di linea del testo di un controllo. La proprietà FontBold è la soluzione più rapida per formattare il testo in grassetto, mentre la proprietà FontWeight consente di controllare con maggiore precisione l'impostazione relativa allo spessore di linea per il testo. La tabella seguente mostra la relazione tra le impostazioni di queste proprietà.
|
Se |
Allora |
|
FontBold = False |
FontWeight = Normal (400) |
|
FontBold = True |
FontWeight = Bold (700) |
|
FontWeight < 700 |
FontBold = False |
|
FontWeight > = 700 |
FontBold = True |
Esempio
La routine evento Print seguente consente di stampare in grassetto il titolo e la data corrente in un report in base alle coordinate specificate dalle impostazioni delle proprietà CurrentX e 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
