Impressao de códibo de barras - impressora zebra

[Luiz Eduardo]

Por favor, alguem tem lib ou funcao para impressao em codigo de barras para impressora zebra TLP 2844 - impressora termica !

Obrigado

Luiz Eduardo

[Jango]

Caro Luiz, utilizo muito esta impressora para imprime etiquetas somente com texto ... Não é necessário nenhuma lib específica. Elas tem seus próprios comandos de formatação. Vc encontra isso no cd que acompanha a impressora .

[Clipper]

Prezado Colega

Segue abaixo um exemplo de impresão de etiquetas padrão EAN-13

Código: Selecionar todos

CLS
SET STAT OFF
SET SCOR OFF
SET DELI ON
SET DELI TO "[]"

QUANT=0
WPRO=SPACE(13)
PRODES=SPACE(48)

@ 05,02 SAY "Codigo EAN-13 --------> " GET WPRO PICT "9999999999999" VALID LEN(ALLTRIM(WPRO))=13
@ 06,02 SAY "Descricao do Produro -> " GET PRODES
@ 07,02 SAY "Quantidade Desejada --> " GET QUANT PICT "999" VALID QUANT>0
READ

IF LASTKEY()=27
   CLS
   RETURN
ENDIF

IF .NOT. ISPRINTER()
   @ 20,02 SAY "A impressora nao esta pronta !!!"
   INKEY(3)
   CLS
   RETURN
ENDIF

WPRO=ALLTRIM(WPRO)
DESCRI1=TRIM(SUBSTR(PRODES,1,24))
DESCRI2=TRIM(SUBSTR(PRODES,25,24))

@ 20,19 SAY "Imprimindo as etiquetas, por favor aguarde."

ENTER=CHR(13)+CHR(10)      // O ENTER DEVE ESTAR NO FINAL DE TODA A LINHA
IF QUANT<3
   QUANT=3
ENDIF
QUANTI=INT(QUANT/3)
QUANTI=ALLTRIM(STR(QUANTI,3))

set device to printer
COL=PCOL()+2
@ prow(),Pcol() say enter     
@ prow(),Pcol() say 'N' + enter      
@ prow(),pcol() say 'JF' + enter
@ prow(),Pcol() say 'q416' + enter
@ prow(),Pcol() say 'Q240,24' + enter
@ prow(),Pcol() say 'R0,2' + enter
@ prow(),Pcol() say 'A30,30,0,1,1,2,N,"' + descri1 + '"' + enter
@ prow(),Pcol() say 'A310,30,0,1,1,2,N,"' + descri1 + '"' + enter
@ prow(),Pcol() say 'A590,30,0,1,1,2,N,"' + descri1 + '"' + enter

@ prow(),Pcol() say 'A30,55,0,1,1,2,N,"' + descri2 + '"' + enter
@ prow(),Pcol() say 'A310,55,0,1,1,2,N,"' + descri2 + '"' + enter
@ prow(),Pcol() say 'A590,55,0,1,1,2,N,"' + descri2 + '"' + enter

*@ prow(),Pcol() say 'A30,180,0,1,2,2,R," VEM PRA K "' + enter
*@ prow(),Pcol() say 'A310,180,0,1,2,2,R," VEM PRA K "' + enter
*@ prow(),Pcol() say 'A590,180,0,1,2,2,R," VEM PRA K "' + enter

@ prow(),Pcol() say 'B30,80,0,E30,2,4,70,B,"' + WPRO + '"' + enter
@ prow(),Pcol() say 'B310,80,0,E30,2,4,70,B,"' + WPRO + '"' + enter
@ prow(),Pcol() say 'B590,80,0,E30,2,4,70,B,"' + WPRO + '"' + enter

@ prow(),Pcol() say 'P' + quanti + enter
@ prow(),pcol() say 'JF' + enter
set device to screen
CLS
RETURN

Até logo.

Marcelo

[Luiz Eduardo]

Obrigado pela dica, deu tudo certo !!

Conte comigo quando precisar !!