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. |