Método Report.TextHeight (Access)
El método TextHeight devuelve el alto de una cadena de texto tal como se imprimiría en la fuente actual de un objeto Report .
Sintaxis
expresión. TextHeight (Expr)
Expresión Variable que representa un objeto Report .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Expr | Obligatorio | String | Cadena de texto cuyo alto se determinará. |
Valor devuelto
Simple
Comentarios
Use el método TextHeight para determinar la cantidad de espacio vertical que necesitará una cadena de texto en la fuente actual cuando el informe tenga formato e impresión. Por ejemplo, una cadena de texto con formato de Arial de 9 puntos requiere una cantidad diferente de espacio que uno en Courier de 12 puntos. Para determinar la fuente actual y el tamaño de fuente de texto en un informe, compruebe la configuración de las propiedades del informe FontName y FontSize.
El valor devuelto por el método TextHeight se expresa en términos del sistema de coordenadas en vigor para el informe, tal como se define en el método Scale . Utilice la propiedad ScaleMode para determinar el sistema de coordenadas actualmente en vigor para el informe.
Si el argumento StrExpr contiene retornos de carro incrustados, el método TextHeight devuelve el alto acumulado de las líneas, incluido el espacio inicial por encima y por debajo de cada línea. Use el valor devuelto por el método TextHeight para calcular el espacio y el posicionamiento necesarios para varias líneas de texto dentro de un informe.
Ejemplo:
Este ejemplo utiliza los métodos TextHeight y TextWidth para determinar el espacio vertical y horizontal necesario para imprimir una cadena de texto en la fuente activa del informe.
Para probar este ejemplo en Microsoft Access, cree un nuevo informe. Establezca la propiedad AlImprimir (OnPrint) de la sección Detalles a [Procedimiento de evento]. Escriba el código siguiente en el módulo del informe y, a continuación, cambie a Vista previa de impresión.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.