Delphi dicas

Imprimir etiquetas com impressoras de código de barras datamax

// pequeno procedimento para imprimir

// etiquetas em impressoras de codigo de barras

// >>>>>>>>>>>> DATAMAX  >>>>>>>>>>>>>



procedure imprimir_eti;

var

Arq : TextFile;

enter : char;

begin

        enter := (13);

        AssignFile(Arq,'LPT1');

        ReWrite(Arq);

        Writeln(Arq,enter+'m');

        Writeln(Arq,enter+'LH14');

        Writeln(Arq,enter+'1X1100000100045B950988006006');

        Writeln(Arq,enter+'1E1115006000200100099');

        Writeln(Arq,enter+'191100310000100Texto');

        Writeln(Arq,'Q0001');

        Writeln(Arq,'E');



        CloseFile(Arq);

end;





///////////////////////////////////////////////////////



{m

LH14



1X1100000100045B950988006006     // Borda na Etiqueta 



1E1115006000200100099      //codigo de Barra



1911      003     1000      0100     Texto

//rotação  font    altura    largura

Q0001     //Quantidade de Etiquetas a Imprimir

E    //fim



//altura em cm  no exemplo 10cm

//largura em cm  no exemplo 1cm

//Rotação altere o primeiro valor



// Texto   dependendo o quer imprimir

podendo pegar informações do banco de Dados.}