cristiane

Obrigada Ana e Alberto Zamai Se encontrar sua rotina e puder me ajudar eu te agradeço muito, é que vou ter que parametrizar de acordo a impressora mesmo uma é argox e a outra essa zebra s4m; O manual da impressora esta todo em ingles e nao estou conseguindo achar os comandos correspondentes. Obrigada!

Bom dia a todos Gostaria, por favor, de uma ajuda, tenho um sistema em clipper que fazia a impressao de etiquetas em uma impressora argox e utulizava os seguintes comandos: FUNCTION ImpEtiq(zporta,; && porta de impressao zdistlat,; && deslocamento lateral da etiq. para direita Ex: 0020 com 4 casa e caracter ztemp,; && temperatura EX 10 caracter e com 2 casa zproduto,; && descricao do produto zean,; && codigo ean com 12 pos. sem o digito zpeso,; && peso zembala,; && data da embalagem em caract. zvalid,; && data da valid em caract. zquant ) && quant de etiq. SET DEVICE TO PRINT DO CASE CASE zpoRta = '0' SET PRINT TO LPT1 CASE zporta = '1' SET PRINT TO COM1 CASE zporta = '2' SET PRINT TO COM2 ENDCASE wln = 0 @ wln++,00 SAY CHR(02) + 'O0220' @ wln++,00 SAY CHR(02)+'M3000' @ wln++,00 SAY CHR(02)+'f275' @ wln++,00 SAY CHR(02)+'L' @ wln++,00 SAY 'C' + zdistlat @ wln++,00 SAY 'R0000' @ wln++,00 SAY 'H' + ztemp @ wln++,00 SAY 'D11' @ wln++,00 SAY 'SE' @ wln++,00 SAY 'PE' @ wln++,00 SAY '191200300480000' + zproduto @ wln++,00 SAY '1F3204000030000' + zean @ wln++,00 SAY '191100300370107PESO LIQ.:' +ZPESO @ wln++,00 SAY '191100300200107DATA FAB.:' + DTOC(zembala) @ wln++,00 SAY 'Q' + PADL(ROUND(zquant,0),4,'0') @ wln++,00 SAY 'E' SET PRINT TO SET DEVICE TO SCREEN RETURN Agora mudei para uma impressora stripe s4m e preciso dos comandos de impressao para substituir nessa funcao Alguem poderia me ajudar? Desde já agradeço

Bom dia a todos Gostaria, por favor, de uma ajuda, tenho um sistema em clipper que fazia a impressao de etiquetas em uma impressora argox e utulizava os seguintes comandos: FUNCTION ImpEtiq(zporta,; && porta de impressao zdistlat,; && deslocamento lateral da etiq. para direita Ex: 0020 com 4 casa e caracter ztemp,; && temperatura EX 10 caracter e com 2 casa zproduto,; && descricao do produto zean,; && codigo ean com 12 pos. sem o digito zpeso,; && peso zembala,; && data da embalagem em caract. zvalid,; && data da valid em caract. zquant ) && quant de etiq. SET DEVICE TO PRINT DO CASE CASE zpoRta = '0' SET PRINT TO LPT1 CASE zporta = '1' SET PRINT TO COM1 CASE zporta = '2' SET PRINT TO COM2 ENDCASE wln = 0 @ wln++,00 SAY CHR(02) + 'O0220' @ wln++,00 SAY CHR(02)+'M3000' @ wln++,00 SAY CHR(02)+'f275' @ wln++,00 SAY CHR(02)+'L' @ wln++,00 SAY 'C' + zdistlat @ wln++,00 SAY 'R0000' @ wln++,00 SAY 'H' + ztemp @ wln++,00 SAY 'D11' @ wln++,00 SAY 'SE' @ wln++,00 SAY 'PE' @ wln++,00 SAY '191200300480000' + zproduto @ wln++,00 SAY '1F3204000030000' + zean @ wln++,00 SAY '191100300370107PESO LIQ.:' +ZPESO @ wln++,00 SAY '191100300200107DATA FAB.:' + DTOC(zembala) @ wln++,00 SAY 'Q' + PADL(ROUND(zquant,0),4,'0') @ wln++,00 SAY 'E' SET PRINT TO SET DEVICE TO SCREEN RETURN Agora mudei para uma impressora stripe s4m e preciso dos comandos de impressao para substituir nessa funcao Alguem poderia me ajudar? Desde já agradeço