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.