Delphi dicas

Imprimi impressora codigo de barra argox ppla e zebra epl2

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;







ARGOX  liquagem PPLA





procedure TForm1.Button7Click(Sender: TObject);

var

F : TextFile;

begin

        AssignFile(F,'LPT1');

        Rewrite(F);

        Writeln(F,'L');      //limpa empressao

        Writeln(F,'m');      //milimetro - n polegada

        Writeln(F,'D11');     //TAMANHO PADRAO PARA PIXS

        Writeln(F,'c1000');     //largua12 da entiqueta

        Writeln(F,'H15');    //teperatura  max20



        Writeln(F,'442600001500400ARROZ TIO SAN GENARO KG EU');



        Writeln(F,'4F2207002000800'+'7891234567895'); //EAN13



        Writeln(F,'453500005000900R$ 1,98');



        Writeln(F,'422100004500950MicroSoft@hotmail.com');





        Writeln(F,'Q0001'); //COPIAS

        Writeln(F,'E');     //FINALIZAR  E

        Writeln(F,'f900');  //CORTA E VOLTA  f900

        CloseFile(F);

end;











ZEBRA  liquagem EPL2



procedure TForm1.Button7Click(Sender: TObject);

VAR F : TextFile;

begin

        AssignFile(F,'LPT1');

        Rewrite(F);



        Writeln(F,'N');

        Writeln(F,'Q30,90');

        Writeln(F,'D20');

        Writeln(F,'A90,0,0,3,1,4,N,"TOMATE PAULISTA APROVEITAVEL KG "');

        Writeln(F,'B90,85,0,E30,2,4,70,B,"7891000370100"');

        Writeln(F,'A90,180,0,2,1,1,N,"MicroSoft Sistemas "');

        Writeln(F,'A450,75,0,5,2,2,N,"1,98"');

        Writeln(F,'P2');

        CloseFile(F);

end;



procedure TForm1.Button9Click(Sender: TObject);

VAR F : TextFile;

begin

        AssignFile(F,'LPT1');

        Rewrite(F);



        Writeln(F,'N');

        Writeln(F,'Q20,110');

        Writeln(F,'D15');





        Writeln(F,'A5,15,0,1,1,3,N,"TOMATE PAULISTA KG "');

        Writeln(F,'B5,65,0,E30,2,4,70,B,"7891000370100"');



        Writeln(F,'A290,15,0,1,1,3,N,"TOMATE PAULISTA KG "');

        Writeln(F,'B290,65,0,E30,2,4,70,B,"7891000370100"');



        Writeln(F,'A570,15,0,1,1,3,N,"TOMATE PAULISTA KG "');

        Writeln(F,'B570,65,0,E30,2,4,70,B,"7891000370100"');



        Writeln(F,'P1');

        CloseFile(F);

end;









procedure TForm1.Button10Click(Sender: TObject);

VAR F : TextFile;

begin

        AssignFile(F,'LPT1');

        Rewrite(F);



        Writeln(F,'N');

        Writeln(F,'Q20,110');

        Writeln(F,'D15');





        Writeln(F,'A5,8,0,1,1,2,N,"TOMATE PAULISTA KG "');

        Writeln(F,'A5,40,0,1,1,2,N,"R$ 1,98"');

        Writeln(F,'B5,70,0,E30,2,4,70,B,"7891000370100"');



        Writeln(F,'A290,8,0,1,1,2,N,"TOMATE PAULISTA KG "');

        Writeln(F,'A290,40,0,1,1,2,N,"R$ 1,98"');

        Writeln(F,'B290,70,0,E30,2,4,70,B,"7891000370100"');



        Writeln(F,'A570,8,0,1,1,2,N,"TOMATE PAULISTA KG "');

        Writeln(F,'A570,40,0,1,1,2,N,"R$ 1,98"');

        Writeln(F,'B570,70,0,E30,2,4,70,B,"7891000370100"');







        Writeln(F,'P1');

        CloseFile(F);

end;





qualquer duvida

gosto de ajuda pois sou muito ajduado tambem

meu e-amil e msn

hetosoft@hotmail.com