Buscar por:

Imprimir em impressora zebra s500 ou s600 em lpt1

Código

Rotina muito simples, basta adicionar ao eventos onclick do seu botão de impressão:

AssignFile(F,'LPT1');

Rewrite(F);

Writeln(F,'^XA');

Writeln(F,'^XA');

Writeln(F,'^PRC^FS');

Writeln(F,'^LH16,1^FS');

Writeln(F,'^LL424^FS');

Writeln(F,'^PQ'+Trim(edVias.Text)+'^FS'); // Numero de vias

Writeln(F,'^FO016,006^GB768,392,2^FS');

Writeln(F,'^FO026,018^A0N,30,30^FD'+Trim(sCli)+'^FS');

Writeln(F,'^FO356,018^A0N,25,30^FDIDENTIFICACAO DE VOLUMES^FS');

Writeln(F,'^FO18,048^GB768,0,2^FS');

Writeln(F,'^FO026,060^ADN,18,10^FDITEM^FS');

Writeln(F,'^FO512,060^ADN,18,10^FDRES^FS');

Writeln(F,'^FO096,060^A0N,30,25^FD'+Trim(sCod)+'^FS'); // Variavel com o código do produto

Writeln(F,'^FO026,090^A0N,30,25^FD'+Trim(sDes)+'^FS'); // Variavel com a descrição do produto

Writeln(F,'^FO18,120^GB480,0,2^FS');

Writeln(F,'^FO026,128^ADN,18,10^FDFORNECEDOR^FS');

Writeln(F,'^FO026,152^A0N,30,25^FDEMPRESA SA^FS');

Writeln(F,'^FO18,182^GB480,0,2^FS');

Writeln(F,'^FO026,190^ADN,18,10^FDLOTE DO FORN.^FS');

Writeln(F,'^FO026,213^A0N,30,25^FD'+Trim(sLot)+'^FS'); // Variavel com o numero do lote

Writeln(F,'^FO18,243^GB480,0,2^FS');

Writeln(F,'^FO026,248^ADN,18,10^FDQTD^FS');

Writeln(F,'^FO276,248^ADN,18,10^FDFAB^FS');

Writeln(F,'^FO076,267^A0N,30,25^FD'+sQde+',00'+'^FS'); // Variavel com a quantidade da etiqueta

Writeln(F,'^FO0256,243^GB0,56,2^FS');

Writeln(F,'^FO312,267^A0N,30,25^FD'+sDATA+'^FS'); // Variavel com a Data

Writeln(F,'^FO18,297^GB768,0,2^FS');

Writeln(F,'^FO0496,48^GB0,250,2^FS');

Writeln(F,'^FO52,308^BCN,55,Y,N^FD'+sBarra+'^FS'); // Variavel contendo o código de barra

Writeln(F,'^XZ');

CloseFile(F);

Espero ter ajudado. Da pra acreditar que cobram até 70 reais nessa unit na internet.