Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Impressão

Como imprimir texto justificado com formatação no modo rascunho da impressora Epson LX-300?

Banner
{ A impressora Epson LX-300 dispõe de um comando que justifica
  o texto. Este recurso é interessante, pois com ele podemos
  continuar a enviar os comandos de formatação de caracteres
  como condensado, negrito, italico, expandido, etc.

  Para o exemplo abaixo:
  - Coloque um botão no form;
  - Altere o evento OnClick deste botão como abaixo: }

procedure TForm1.Button1Click(Sender: TObject);
const
  cJustif     = #27#97#51;
  cEject      = #12;

  { Tamanho da fonte }
  c10cpi      = #18;
  c12cpi      = #27#77;
  c17cpi      = #15;
  cIExpandido = #14;
  cFExpandido = #20;
  { Formatação da fonte }
  cINegrito   = #27#71;
  cFNegrito   = #27#72;
  cIItalico   = #27#52;
  cFItalico   = #27#53;
var
  Texto: string;
  F: TextFile;
begin
  Texto := c10cpi +
    'Este e um teste para impressora Epson LX 300. ' +
    'O objetivo e imprimir texto justificado sem deixar ' +
    'de usar formatacao, tais como: ' +
    cINegrito + 'Negrito, ' + cFNegrito +
    cIItalico + 'Italico, ' + cFItalico +
    c17cpi + 'Condensado (17cpi), ' + c10cpi +
    c12cpi + '12 cpi, ' + c10cpi +
    cIExpandido + 'Expandido.' + cFExpandido +
    ' Este e apenas um exemplo, mas voce podera adapta-lo ' +
    'a sua realidade conforme a necessidade.';

  AssignFile(F, 'LPT1');
  Rewrite(F);
  try
    WriteLn(F, cJustif, Texto);
    WriteLn(F, cEject);
  finally
    CloseFile(F);
  end;
end;

Observações

Este recurso de justificação da Epson LX-300 pode ser usado em qualquer linguagem de programação.

O conteúdo desta página pode ajudar alguém? Compartilhe!