S’applique à
Objet Zone de liste déroulante |
Objet Rapport |
Objet Bouton de commande |
Collection TabControl |
Objet Condition de mise en forme |
Objet Zone de texte |
Objet Étiquette |
Objet Bouton bascule |
Objet Zone de liste |
Vous pouvez utiliser la propriété FontBold pour spécifier si une police s’affiche dans un style gras dans les situations suivantes :
-
Lors de l’affichage ou de l’impression de contrôles sur des formulaires et des rapports.
-
Lors de l’utilisation de la méthode Print sur un rapport.
Remarques
La propriété FontBold utilise les paramètres suivants.
Paramètre |
Description |
Vrai |
Le texte est en gras. |
False |
(Par défaut) Le texte n’est pas gras. |
Remarque : Vous pouvez définir la propriété FontBold uniquement à l’aide d’une macro ou d’un code Visual Basic pour Applications (VBA).
Pour utiliser la propriété FontBold sur un rapport, commencez par créer une procédure événementielle Print qui imprime le texte souhaité.
L’apparence d’une police à l’écran et à l’impression peut changer en fonction de votre ordinateur et de votre imprimante.
La propriété FontWeight , qui est disponible dans la feuille de propriétés pour les contrôles, peut également être utilisée pour définir la largeur de ligne du texte d’un contrôle. La propriété FontBold vous offre un moyen rapide de mettre le texte en gras ; La propriété FontWeight vous permet de contrôler plus finement le paramètre de largeur de ligne pour le texte. Le tableau suivant montre la relation entre les paramètres de ces propriétés.
Si |
Alors |
FontBold = False |
FontWeight = Normal (400) |
FontBold = True |
FontWeight = Gras (700) |
FontWeight < 700 |
FontBold = False |
FontWeight > = 700 |
FontBold = True |
Exemple
La procédure d’événement Print suivante imprime un titre de rapport et la date dans un style gras sur un rapport aux coordonnées spécifiées par les paramètres de propriété CurrentX et 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