Alegro - exemplo de como imprimir

Top  Previous  Next

unit Impressora1Unit;

 

interface

 

uses Forms, CPort, Classes, Controls, StdCtrls, ARotinasUnit;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Porta: TComPort;

    procedure Button1Click(Sender: TObject);

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

const

  Header : array[1..7of String = ('H10'#2 + 'L'#2 + 'f220'#2 + '00265''PO''SO''D11');

  Footer : array[1..2of String = ('Q0001''E');

  Comando = '131100002510020' + 'BOSTA';

 

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  Porta.Open;

  if Porta.Connected then

  begin

    for I := 1 to 7 do Porta.WriteStr(Header[I] + #13);

    Porta.WriteStr(Comando + #13);

    for I := 1 to 2 do Porta.WriteStr(Footer[I] + #13);

    Porta.Close;

    msgInforma('OK?');

  end

  else

    msgErro('ERRO');

end;

 

end.