Impressora Termica Eltron

[cpaess]

Alguem aki ja fez alguma rotina para usar esta impressora. Se puder mandar pra mim ou me ajudar com a mesma.

Preciso imprimir codigo de barras ean13.

Muito Obrigado.

[filizola]

amanha, terça feira dia 31/08 estarei no escritorio de um cliente que eu fiz uma rotina para a eltron tlp 2742 em torno das 15:00hs estarei enviando para voce esta rotina.

[Clipper]

Segue abaixo um exemplo simples mas que funciona perfeitamente.

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