Método Report.TextHeight (Access)

O método TextHeight devolve a altura de uma cadeia de texto, uma vez que seria impressa no tipo de letra atual de um objeto Relatório .

Sintaxe

expressão. TextHeight (Expr)

expressão Uma variável que representa um objeto Relatório .

Parâmetros

Valor de retorno

Único

Comentários

Utilize o método TextHeight para determinar a quantidade de espaço vertical que uma cadeia de texto exigirá no tipo de letra 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 devolvido pelo método TextHeight é expresso em termos do sistema de coordenadas em vigor para o relatório, conforme definido pelo método Scale . Utilize a propriedade ScaleMode para determinar o sistema de coordenadas atualmente em vigor para o relatório.

Se o argumento StrExpr contiver símbolos de retorno incorporados, o método TextHeight devolve a altura cumulativa das linhas, incluindo o espaço à esquerda acima e abaixo de cada linha. Utilize o valor devolvido pelo método TextHeight para calcular o espaço e o posicionamento necessários para múltiplas linhas de texto num 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]. Introduza o seguinte código no módulo do relatório e, em seguida, mude para Pré-visualizar.

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.