formatatx

Função FormataTX()

Esta função tem por objetivo enviar textos para a impressora, com formatações, informadas pelos parâmetros.

TipoLetra:

1 = comprimido

2 = normal

3 = elite

Itálico:         

1 = ativa o modo itálico.

0 = desativa o modo itálico

Sublinhado:

1 = ativa o modo sublinhado

0 = desativa o modo sublinhado

Expandido:

1 = ativa o modo expandido

0 = desativa o modo expandido

Enfatizado (negrito):

1 = ativa o modo enfatizado

0 = desativa o modo enfatizado

Modo de usar:

FormataTX( "Texto a ser impresso", TipoLetra, Itálico, Sublinhado, Expandido, Enfatizado)

Exemplo:

' Exemplo em Visual Basic

Private Sub cmdImprimeTexto_Click()

 iRetorno = FormataTX("Texto a ser Impresso", 2, 0, 0, 1, 1)

End Sub

// Exemplo em Delphi

procedure TForm1.cmdImprimeTextoClick(Sender: TObject);

var iRetorno: Integer;

   cTexto: string;

begin

 cTexto   := 'Texto a ser Impresso';

 iRetorno := FormataTX( pchar( cTexto ), 2, 0, 0, 1, 1 );

end;

O retorno desta função é dado através de um valor inteiro, onde se o retorno for:

1 (um): Sucesso. A função foi executada sem problemas.

0 (zero): Erro de comunicação física.