impressora termica TLP 2844 ZEBRA

[adzdoni]

Alguem tem rotina de impressao de etiquetas neste modelo de impressora ?

Preciso imprimir etiquetas com descricao do produto, preco e codigo de barras.

Por favor, caso tenha, coloque em dicas, desde já agradeço a todos os colaboradores.

Doni

[gilmer]

Ola',

Eu acho que esta impressora tem um drive para Windows, se tiver você faz normalmente.

[Valdir]

Caro Doni

Embora seja iniciante na Fivewin, atualmente utilizo bastante esse tipo de impressora no meus sistemas em Clipper 5.2. Nunca testei com a FW., porém se te servir ai vai um exemplo em puro Clipper.

Faça as alterações necessárias e teste, se funcionar Mail-me

Espero ter te ajudado.

Um abraço

Valdir.brando@itelefonica.com.br

#define _CRLF CHR(13)+CHR(10)

nCODPROD:=00304000559

cDESC:="PIA MARMORE BRANCO 1,2 m"

nPRECO:=49.30

nQTD:=2 // Quantidade de etiquetas

cOBS:="Estou testando."

SET DEVICE TO PRINTER

@ PROW(),PCOL() SAY [FK"*"]+_CRLF

@ PROW(),PCOL() SAY [FS"ETQ"]+_CRLF

@ PROW(),PCOL() SAY [V00,40,L,""]+_CRLF

@ PROW(),PCOL() SAY [V01,15,L,""]+_CRLF

@ PROW(),PCOL() SAY [V02,13,L,""]+_CRLF

@ PROW(),PCOL() SAY [V03,11,L,""]+_CRLF

@ PROW(),PCOL() SAY [V04,30,L,""]+_CRLF

@ PROW(),PCOL() SAY _CRLF

@ PROW(),PCOL() SAY [Q215,24+0]+_CRLF

@ PROW(),PCOL() SAY [R0,0]+_CRLF

@ PROW(),PCOL() SAY [s2]+_CRLF

@ PROW(),PCOL() SAY [D14]+_CRLF

@ PROW(),PCOL() SAY [ZB]+_CRLF

@ PROW(),PCOL() SAY [TTh]+_CRLF

@ PROW(),PCOL() SAY [TDy2.mn.dd]+_CRLF

@ PROW(),PCOL() SAY [A61,8,0,4,1,2,N,V00]+_CRLF

@ PROW(),PCOL() SAY [A63,55,0,3,1,1,N,V01]+_CRLF

@ PROW(),PCOL() SAY [A309,69,0,5,1,1,N,V02]+_CRLF

@ PROW(),PCOL() SAY [b61,91,0,2,4,10,71,B,V03]+_CRLF

@ PROW(),PCOL() SAY [A313,124,0,4,1,1,N,"PRE€O RETIRA"]+_CRLF

@ PROW(),PCOL() SAY [A313,152,0,4,1,1,N,V04]+_CRLF

@ PROW(),PCOL() SAY [FE]+_CRLF

@ PROW(),PCOL() SAY _CRLF

@ PROW(),PCOL() SAY [FR"ETQ"]+_CRLF

*

*

@ PROW(),PCOL() SAY +_CRLF

@ PROW(),PCOL() SAY cDESC+_CRLF

@ PROW(),PCOL() SAY "UNIDADE: PC"+_CRLF

@ PROW(),PCOL() SAY "R$ "+LTRIM(TRANSFORM(nPRECO,"@E 9,999.99"))+_CRLF

@ PROW(),PCOL() SAY STRZERO(nCODPROD,11)+_CRLF

@ PROW(),PCOL() SAY cOBS+_CRLF

@ PROW(),PCOL() SAY "P"+STRZERO(nQTD,4)+_CRLF

*

*

SET DEVICE TO SCREEN

Editado por - valdir on 07/02/2006 10:40:36