Objeto Printer - Determinando o total de linhas a serem impressas


Se você estiver usando o objeto Printer , quando você envia dados para uma impressora , você precisar determinar quantas linhas de texto podem ser impressas em uma folha de papel. O método TextHeight do objeto printer indica quanto espaço esta sendo usado quando o texto está sendo enviado para a impressora. Na verdade ele retorna a altura da string de texto que será impressa usando a fonte atual de Form , Picturebox ou Printer.

Sua sintaxe é a seguinte:

object.TextHeight(string)

Onde temos:

Parte Descrição
object Opcional . Indica o objeto sobre o qual a propriedade atual. Se for omitido o objeto From com o foco será assumido.
String Obrigatório. Uma string de texto para o qual a propriedade vai determinar a altura.expression.

Nota: A altura é expressa em temors da propriedade ScaleMode. A propriedade ScaleHeight lhe diz as coordenadas horizontais para uma página impressa.

Se você precisa determinar quantas linhas de texto podem ser impressa na impressora padrão , você deve obter o retorno do valor do método TextHeight para a impressora. Depois você obtem o retorno do valor da propriedade ScaleHeight e divide este valor pelo tamanho do texto string. O resultado será o total de linhas por página que você poderá enviar para a impressora.

Nota: ScaleHeight retorna o número de unidades da medida vertical de um objeto. Sintaxe: object.ScaleHeight [= value]

Vamos a um exemplo:

  1. Crie um novo projeto no Visual Basic.
  2. No formulário - form1 - inclua uma caixa de texto - Text Box - Text1.
  3. Inclua um botão de comando no formulário - Command1.
  4. Inclua o código abaixo no evento Click de Command1.
Private Sub Command1_Click()
Dim PrinterHeight As Integer
Dim NumeroDeLinhas As Integer

PrinterHeight =
Printer.TextHeight("Macoratti.net")
NumeroDeLinhas = Printer.ScaleHeight / PrinterHeight
Text1.Text = "Linhas por página = " & Str$(NumeroDeLinhas)

End Sub

Pressione F5 e clique no botão de comando. O número de linhas que sua impressora padrão pode acomodar usando a fonte atual selecionada será exibida na caixa de texto - Text1.

Até próxima dica ...


José Carlos Macoratti