Méthode Report.TextHeight (Access)

La méthode TextHeight renvoie la hauteur d’une chaîne de texte telle qu’elle serait imprimée dans la police actuelle d’un objet Report .

Syntaxe

expression. TextHeight (Expr)

Expression Variable qui représente un objet Report .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Expr	Obligatoire	String	Chaîne de texte dont la hauteur sera déterminée.

Valeur renvoyée

Unique

Remarques

Utilisez la méthode TextHeight pour déterminer la quantité d’espace vertical nécessaire à une chaîne de texte dans la police actuelle lorsque le rapport est mis en forme et imprimé. Par exemple, une chaîne de texte mis en forme Arial 9 points nécessite différents d'une quantité d'espace qu'une mise en forme en courrier 12 points. Pour déterminer la police et la taille de la police du texte dans un rapport, vérifiez les paramètres pour les propriétés du rapport FontName et FontSize.

La valeur retournée par la méthode TextHeight est exprimée en termes de système de coordonnées en vigueur pour le rapport, tel que défini par la méthode Scale . Utilisez la propriété ScaleMode pour déterminer le système de coordonnées actuellement en vigueur pour le rapport.

Si l’argument StrExpr contient des retours chariot incorporés, la méthode TextHeight renvoie la hauteur cumulée des lignes, y compris l’espace de début au-dessus et en dessous de chaque ligne. Utilisez la valeur retournée par la méthode TextHeight pour calculer l’espace et le positionnement nécessaires pour plusieurs lignes de texte dans un rapport.

Exemple

L’exemple suivant utilise les méthodes TextHeight et TextWidth pour déterminer la quantité d’espace vertical et horizontal nécessaire pour imprimer une chaîne de texte dans la police actuelle du rapport.

Pour appliquer cet exemple dans Microsoft Access, créez un nouvel état. Définissez la propriété OnPrint de la section Détail sur [Event Procedure]. Entrez le code suivant dans le module du rapport, puis basculez vers Aperçu avant impression.

Private Sub Detail_Print(Cancel As Integer, _ 
 PrintCount As Integer) 
 ' Set unit of measure to twips (default scale). 
 Me.Scalemode = 1 
 ' Print name and font size of report font. 
 Debug.Print "Report Font: "; Me.FontName 
 Debug.Print "Report Font Size: "; Me.FontSize 
 ' Print height and width required for text string. 
 Debug.Print "Text Height (Twips): "; _ 
 Me.TextHeight("Product Report") 
 Debug.Print "Text Width (Twips): "; _ 
 Me.TextWidth("Product Report") 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.