Impressao - comandos HP e epson (justificado)

// Código usados pelas impressoaras HP

// Veja abaixo alguns códigos usados pelas impressoras HP:

RESET = 027/069

BOLD1 = 027/040/115/051/066

BOLD0 = 027/040/115/048/066

ITALIC1 = 027/040/115/049/083

ITALIC0 = 027/040/115/048/083

UNDERLINE1 = 027/038/100/049/068

UNDERLINE0 = 027/038/100/064

LPI6 = 027/038/108/054/068

LPI8 = 027/038/108/056/068

CPI5 = 027/040/115/053/072

CPI6 = 027/040/115/054/072

CPI8 = 027/040/115/056/072

CPI10 = 027/040/115/049/048/072

CPI12 = 027/040/115/049/050/072

CPI17 = 027/040/115/049/054/046/054/055/072

CPI20 = 027/040/115/050/048/072

////////////////////////////// EPSON ///////////////////////////////////////

// Como imprimir texto justificado com formatação na impressora Epson 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;