Report.TextHeight-Methode (Access)

Die TextHeight-Methode gibt die Höhe einer Textzeichenfolge zurück, wie sie in der aktuellen Schriftart eines Report-Objekts gedruckt würde.

Syntax

Ausdruck. TextHeight (Expr)

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Expr	Erforderlich	String	Die Textzeichenfolge, für die die Texthöhe bestimmt wird.

Rückgabewert

Single

HinwBemerkungeneise

Verwenden Sie die TextHeight-Methode , um den vertikalen Abstand zu bestimmen, den eine Textzeichenfolge in der aktuellen Schriftart benötigt, wenn der Bericht formatiert und gedruckt wird. Eine Textzeichenfolge, die z.  B. in Arial mit 9 Punkt formatiert ist, benötigt eine andere Breite als eine in Courier mit 12 Punkt formatierte Textzeichenfolge. Um die aktuelle Schriftart und den Schriftgrad für Text in einem Bericht zu bestimmen, überprüfen Sie die Einstellungen für die Eigenschaften FontName und FontSize des Berichts.

Der von der TextHeight-Methode zurückgegebene Wert wird in Bezug auf das Koordinatensystem ausgedrückt, das für den Bericht gilt, wie von der Scale-Methode definiert. Verwenden Sie die ScaleMode-Eigenschaft , um das koordinatensystem zu bestimmen, das derzeit für den Bericht in Kraft ist.

Wenn das StrExpr-Argument eingebettete Wagenrückläufe enthält, gibt die TextHeight-Methode die kumulierte Höhe der Zeilen zurück, einschließlich des führenden Leerzeichens über und unter jeder Zeile. Verwenden Sie den von der TextHeight-Methode zurückgegebenen Wert, um den erforderlichen Platz und die Positionierung für mehrere Textzeilen in einem Bericht zu berechnen.

Beispiel

Das folgende Beispiel verwendet die Methoden TextHeightTextHeight und TextWidthTextWidth, um die Höhe und die Breite des Bereichs zu ermitteln, der zum Drucken einer Textzeichenfolge in der aktuellen Schriftart des Berichts benötigt wird.

Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest. Geben Sie den folgenden Code in das Modul des Berichts ein, und wechseln Sie dann zur Seitenansicht.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.