Imprimir texto justificado na lx-300

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;