PC Toledo

OLÁ PESSOAL, ALGUEM TERIA UM PEQUENO PROGRAMINHA PARA EU ME BASEAR A IMPRESSÃO NUMA ZEBRA -2844, IMPRESSÃO DE CÓDIGO DE BARRAS TÉRMICA.
)

Eu tenho... envie-me um e-mail solicitando o fonte que eu te envio amanha.

Boa Noite!!


Faz muito tempo que eu tenho isso ai, faz um teste

t+

:xau


function barra()
SET DELI ON
SET DELI TO "[]"


wpro=strzero(xcodigo,13)
*wpro=str(xcodigo)


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

WPRO=ALLTRIM(WPRO)
DESCRI1=ALLTRIM(PRODES)
DESCRI2=ALLTRIM(PECAS)

@ 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/1)
QUANTI=ALLTRIM(STR(QUANTI,3))

set device to printer
COL=PCOL()+4
@ 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 'B50,00,0,E30,3,4,50,N,"' + WPRO + '"' + enter
@ prow(),Pcol() say 'B450,00,0,E30,3,4,50,N,"' + WPRO + '"' + enter

@ prow(),Pcol() say 'A150,55,0,1,1,2,N,"' + wpro + '"' + enter
@ prow(),Pcol() say 'A550,55,0,1,1,2,N,"' + wpro + '"' + enter

@ prow(),Pcol() say 'A38,100,0,1,1,2,N,"' + firma0 + '"' + enter
@ prow(),Pcol() say 'A438,100,0,1,1,2,N,"' + firma0 + '"' + enter

@ prow(),Pcol() say 'A38,140,0,1,1,2,N,"' + firma1 + '"' + enter
@ prow(),Pcol() say 'A438,140,0,1,1,2,N,"' + firma1 + '"' + enter

@ prow(),Pcol() say 'A38,180,0,1,1,2,N,"' + descri1 + '"' + enter
@ prow(),Pcol() say 'A438,180,0,1,1,2,N,"' + descri1 + '"' + enter

* @ prow(),Pcol() say 'A110,110,0,1,1,2,N,"' + descri2 + '"' + enter
* @ prow(),Pcol() say 'A510,110,0,1,1,2,N,"' + descri2 + '"' + enter

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

)
MARBIO, VOU ESTUDAR SEU CÓDIGO E ADEQUAR AS NECESSIDADES DE MEU CLIENTE, VALEU !!!

PESSOAL É INCRIVEL, O CLIENTE FEZ UMA ETIQUETA ATRAVES DO PROGRAMA QUE VEM COM ELA E COLOCOU UMA IMAGEM, COMO POSSO PUXAR A MESMA PARA CONSEGUIR PUXA A IMAGEM IMPRIRMIR TAMBÉM ??
:-O

Nao sei se vai funcionar com a ZEBRA, mas tente assim

Crie um arquivo -> FIG1.TXT com as segintes linhas

GK"FIG1"
GM"FIG1"1412


Crie um arquivo .BAT com a seguinte linha

COPY FIG1.TXT + FIGURA.PCX LPT1: /B


Na rotina de impressao inclua a segunte linha:

A prow(), pcol() say 'GG10,10,"FIG1" '+' " ' +enter


Cuidado com as aspas no comando.

Execute o arquivo .BAT antes do seu programa de impressao de etiquetas.

)
Legal Irineu, mas a ZEBRA está no cliente,e não fica próximo, tentarei sim, e o resultado que der informo daqui a alguns dias ok.
:*