Buscar por:

Imprimindo texto justificado com formatação na impressora epson lx-300

Código

{ 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; {Este recurso de justificação da Epson LX-300 pode ser usado em qualquer linguagem de programação. }