Método Report.TextHeight (Access)
O método TextHeight retorna a altura de uma cadeia de caracteres de texto, pois ela seria impressa na fonte atual de um objeto Report .
Sintaxe
expressão. TextHeight (Expr)
Expressão Uma variável que representa um objeto Report .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Expr | Obrigatório | String | A sequência de texto para a qual a altura do texto será determinada. |
Valor de retorno
Único
Comentários
Use o método TextHeight para determinar a quantidade de espaço vertical que uma cadeia de caracteres de texto exigirá na fonte atual quando o relatório for formatado e impresso. Por exemplo, uma cadeia de caracteres de texto formatada em Arial de 9 pontos exigirá um valor diferente de espaço de outra formatada em Courier de 12 pontos. Para determinar a fonte atual e o tamanho da fonte do texto em um relatório, verifique as configurações de propriedades de FontName e FontSize do relatório.
O valor retornado pelo método TextHeight é expresso em termos do sistema de coordenadas em vigor para o relatório, conforme definido pelo método Scale . Use a propriedade ScaleMode para determinar o sistema de coordenadas atualmente em vigor para o relatório.
Se o argumento StrExpr contiver o transporte inserido retornar, o método TextHeight retornará a altura cumulativa das linhas, incluindo o espaço principal acima e abaixo de cada linha. Use o valor retornado pelo método TextHeight para calcular o espaço e o posicionamento necessários para várias linhas de texto em um relatório.
Exemplo
O exemplo a seguir utiliza os métodos TextHeight e TextWidth para determinar o espaço vertical e horizontal necessário para imprimir uma sequência de texto na fonte atual do relatório.
Para testar esse exemplo no Microsoft Access, crie um novo relatório. Defina a propriedade OnPrint da seção Detalhes como [Procedimento do Evento]. Insira o código a seguir no módulo do relatório e, em seguida, alterne para Visualização de Impressão.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.