Zebra TLP2844

[microfly]

Ninguem pode me dar uma força ref a esse assunto?

Luiz Carlos

www.microfly.com.br

[microfly]

Ninguem pode me dar uma força ref a esse assunto?

Luiz Carlos

www.microfly.com.br

[eevaldo]

Ola,

procure por ZEBRA no busca que a algum tempo atraz eu postei meu codigo que imprimi perfeitamente em impressora zebra.

So nao lembro se e o mesmo modelo.

Obrigado.

Evaldo Wagner

FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console)

evaldowl@hotmail.com

[lecojales]

ARGOX uso assim, talvez ajude:

*** IMPRIME ETIQUETA

set printer to lpt1

set device to printer

@ prow()+1,00 say Chr(2)+"f285"+Chr(13)

@ prow()+1,00 say Chr(2)+"O0220"+Chr(13)

@ prow()+1,00 say Chr(2)+"L"+Chr(13)

@ prow()+1,00 say "D11"+Chr(13)

@ prow()+1,00 say "H15"+Chr(13) &&& temperatura

@ prow()+1,00 say "PE"+Chr(13)

@ prow()+1,00 say "A2"+Chr(13)

@ prow()+1,00 say "122200000860051"+trim(pnome)+chr(13)

@ prow()+1,00 say "1922A1200310249R$"+str(pvendap,8,2)+chr(13)

@ prow()+1,00 say "1F8405000150035"+substr(pcodigo,1,12)+chr(13)

vsqtdeimp:= 1

@ prow()+1,00 say "Q"+strzero(vsqtdeimp,4) + Chr(13) &&& quantidade

@ prow()+1,00 say "E" + Chr(13)

set printer to

set device to screen

-> Pelo meno a argox vem um programa, você desenha o que quer, neste aplicativo, e ele te gera o fonte, dapois é só adaptar igual fiz acima.

Leco Jales

Xhabour

[microfly]

ja utielzei todos o tipos aqui postados e nao funfa nem a porrada... nao é facil usar uma ferramenta que nao te da opçoes a não ser por gambiarra, ai é roça.. mais agradeço a quem tentou me ajudar..

Liguei no suporte da empresa que comercializa a impressora ZEBRA e me disseram que o sensor da impressora só serve para os espaços da etiquetas, como no meu caso é formulario nao é etiqueta é um rolo serrilhado continuo na media de altura 12.7 x 9.00 de largura cada, é brincadeira mais vamos fazer o que tenho que me virar nos 30 pois o cliente nao tem culpa, se alguem souber se tem algum macete me diga, vou tentar com o oPrn:CmSay, pois a Tdosprn tb nao FUNFA. vlw e sucesso a todos

Luiz Carlos

www.microfly.com.br

São Paulo - Zona Norte

[microfly]

esqueci de dizer a impressora esta em USB e nao LPT1

[lecojales]

compartilhe a impressora usb e

net use lpt1 \\localhost\impusb

aí pode usar ela como sendo lpt1.

type arquivo.txt > lpt1

ou o próprio set printer to lpt1

Leco Jales

Xharbour

[Daniel Lopes Filho]

eu utlizo o driver da zebra a impressão nao tem segredos o q voce precisa ?

quer ver o codigo ?

xharbour 1.1.0 + gtwvw + fw 8.04+vsx e começando + xbrowse

migrando p/ o 10.2 e implementando nfe (classe do gilmer) e futuramente paf-ecf

msn..: zazibr@hotmail.com

skype: zazibr

Daniel lopes Filho

Campo Grande/MS

[microfly]

Amigo Leco Jales, ja fiz isso ai tb.

para vcs terem uma ideia eu ja fiz tudo que tem aqui no forum mais nao FUNFA nem a porrada, o deiver esta correto, esta ahcando ela na USB, o problema esta no pulo da impressao.

Liquei no suporte da Zebra e me falaram que o sensor da etiqueta so serve para eltiq ou seja o sensor analiza o espaco de um etiqueta a outra e assim por diante.

No meu caso é um rolo serrilhado a cada 12,7 cm, ele é considerado continuo e me disseram para tratar os comandos dela dentro do prorpio prg. é ai que ta pegando..

se alguem puder me enivar um exemplo eu ficaria grato.

Obrigado e sucesso a todos

Luiz Carlos

www.microfly.com.br

Sao Paulo - SP - Zona Norte

(11)2645-8412

[jbinfo]

Segue o que uso hj amigo:

**************************************

FUNCTION ZEBRA

local oDlg, oBnt1, oBnt2

private enter

enter:=chr(13)+chr(10)

******** 2 Etiquetas por impressao

xloja="NOME LOJA"

xdias='30'

emens="Troca ate "+alltrim(xdias)+" dias c/etiqueta"

******** Primeira Etiqueta

xbarra='789123456789'

xval=100,00

xval1= [R$ ]+str(xval,9,2)

xtam='P Preto'

xdes='Descricao do Produto'

xpro='JB-Teste'

// LIMPA O BUFFER DA IMPRESSORA

etiq_txt= [N]+chr(13)+chr(10)

// TAMANHO DA ETIQUETA

etiq_txt= etiq_txt +[Q800,100]+chr(13)+chr(10)

// DETERMINA A TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA

etiq_txt= etiq_txt +[D7]+chr(13)+chr(10)

//LINHA IMPRESSA

etiq_txt= etiq_txt +[A330,45,2,3,1,2,N,"]+xval1+["]+enter

//CODIGO DE BARRAS

etiq_txt= etiq_txt +[b340,110,2,E30,2,2,38,B,"]+xbarra+["]+enter

etiq_txt= etiq_txt +[A370,130,2,2,1,1,N,"]+alltrim(xtam)+["]+enter

etiq_txt= etiq_txt +[A370,150,2,2,1,1,N,"]+subs(xdes,1,30)+["]+enter

etiq_txt= etiq_txt +[A340,200,2,2,1,1,N,"]+alltrim(xtam)+["]+enter

etiq_txt= etiq_txt +[A340,230,2,2,1,1,N,"]+alltrim(xpro)+["]+enter

etiq_txt= etiq_txt +[b340,300,2,E30,2,2,45,B,"]+xbarra+["]+enter

if len(alltrim(des))>30

etiq_txt= etiq_txt +[A370,320,2,2,1,1,N,"]+subs(xdes,1,30)+["]+enter

etiq_txt= etiq_txt +[A370,340,2,2,1,1,N,"]+subs(xdes,31,20)+["]+enter

else

etiq_txt= etiq_txt +[A370,330,2,2,1,1,N,"]+alltrim(xdes)+["]+enter

endif

etiq_txt= etiq_txt +[A360,370,2,3,1,1,N,"]+"__________________________"+["]+enter

etiq_txt= etiq_txt +[A380,385,2,2,1,1,N,"]+emens+["]+enter

etiq_txt= etiq_txt +[A360,416,2,3,1,1,N,"]+"__________________________"+["]+enter

//NOME DA LOJA EM TAMANHO MAIOR

etiq_txt= etiq_txt +[A380,486,2,2,2,3,N,"]+xloja+["]+enter

******** Segunda Etiqueta

xbarra2='789123456789'

xval=200,00

xval2= [R$ ]+str(xval,9,2)

xtam2='P Branco'

xdes2='Descricao do Produto'

xpro2='JB-Teste2'

etiq_txt= etiq_txt +[A720,45,2,3,1,2,N,"]+xval2+["]+enter

etiq_txt= etiq_txt +[b720,110,2,E30,2,2,38,B,"]+xbarra2+["]+enter

etiq_txt= etiq_txt +[A770,130,2,2,1,1,N,"]+alltrim(xtam2)+["]+enter

etiq_txt= etiq_txt +[A770,150,2,2,1,1,N,"]+subs(xdes2,1,30)+["]+enter

etiq_txt= etiq_txt +[A720,200,2,2,1,1,N,"]+alltrim(xtam2)+["]+enter

etiq_txt= etiq_txt +[A720,230,2,2,1,1,N,"]+xpro2+["]+enter

etiq_txt= etiq_txt +[b720,300,2,E30,2,2,45,B,"]+xbarra2+["]+enter

if len(alltrim(des))>30

etiq_txt= etiq_txt +[A770,320,2,2,1,1,N,"]+subs(xdes2,1,30)+["]+enter

etiq_txt= etiq_txt +[A770,340,2,2,1,1,N,"]+subs(xdes2,31,20)+["]+enter

else

etiq_txt= etiq_txt +[A770,330,2,2,1,1,N,"]+alltrim(xdes2)+["]+enter

endif

etiq_txt= etiq_txt +[A780,370,2,3,1,1,N,"]+"__________________________"+["]+enter

etiq_txt= etiq_txt +[A780,385,2,2,1,1,N,"]+emens+["]+enter

etiq_txt= etiq_txt +[A780,416,2,3,1,1,N,"]+"__________________________"+["]+enter

etiq_txt= etiq_txt +[A780,486,2,2,2,3,N,"]+xloja+["]+enter

********

// IMPRIME A QUANTIDADE DE ETIQUETAS

etiq_txt= etiq_txt +[P1] + chr(10)

// DIRECIONA A PORTA DE IMPRESSAO

nH := FOpen("LPT1",2)

Fwrite(nH,etiq_txt)

Fclose(nH)

// COMANDO PARA ESPERAR A IMPRESSAO

syswait()

sysrefresh()

return

Qualquer duvida estamos a disposição ok....boa sorte...

Outra coisa é como configurar o tamanho da etiqueta, vc precisa desligar a impressora, segurar o botão de FEED e qdo ligar, na primeira piscada em vermelho solte o botão, ela automaticamente vai configurar o tamanho da etiqueta, depois no termino da impressão da configuração, aperte o FEED e esta pronta para imprimir...ok

Valeu

Leandro

JB Informatica

JB Informática

[ xHarbour1.10 || FWh10.1 ]

[Daniel Lopes Filho]

a impressão na zebra com o driver do windows é um relatorio normal veja uma parte do codigo o resto é somente o carregamento do arquivo p/ a matriz

If lPreview

PRINTER oPrinter NAME "Impressão do Etiquetas Impressoras Laser/DeskJet - Modelo Paulimaq LJA 250 - " + cImpressora PREVIEW MODAL to cImpressora

Else

PRINTER oPrinter NAME "Impressão do Etiquetas Impressoras Laser/DeskJet - Modelo Paulimaq LJA 250 - " + cImpressora MODAL to cImpressora

EndIf

DEFINE FONT oFontCAB NAME "ARIAL" SIZE 0,-8 BOLD OF oPrinter

DEFINE FONT oFontRef NAME "ARIAL" SIZE 0,-11 BOLD OF oPrinter

If ( Ascan( aModulos_ ,"PRECO_CODIFICADO" )) != 0

DEFINE FONT oFontPRECO NAME "ARIAL" SIZE 0,-11 BOLD OF oPrinter

Else

DEFINE FONT oFontPRECO NAME "ARIAL" SIZE 0,-16 BOLD OF oPrinter

EndIf

oPrinter:SetFont(oFontCAB)

oPrinter:SetPage(256) // personalizado

*oPrinter:SetSize( nWidth, nHeight )

* 85cm x 54cm

oPrinter:SetSize( 850, 540 )

oPrinter:SetPortrait() //Vertical

oPrinter:lPrvModal := .T.

nResColuna:=oPrinter:nlogpixelx()/2.54

nResLinha :=oPrinter:nlogpixely()/2.54

nRow := 00

nPag := 01

mLarg := oFontCAB:nHeight

nTab := oPrinter:nHorzRes()/50 // controle de margens

nSpc := (oPrinter:nHorzRes()-(2*nTab)) / 40 // limitador de caracteres

nRow += 0.5

DEFINE PEN oPen1 WIDTH 2

PAGE

******

** 2 Colunas

******

* 1a Linha

oPrinter:Say(nRow*mLarg, nTab+(nSpc*002), Padc( aCli[01] , 40 , " " ) , oFontCAB )

oPrinter:Say(nRow*mLarg, nTab+(nSpc*022), Padc( aCli[02] , 30 , " " ) , oFontCAB )

nRow += 2

If !Empty( aRefBar[01] )

oPrinter:Line( (nRow)*mLarg , nTab+(nSpc*002), (nRow)*mLarg, nTab+(nSpc*20), oPen1 )

EndIf

If !Empty( aRefBar[02] )

oPrinter:Line( (nRow)*mLarg , nTab+(nSpc*022), (nRow)*mLarg, nTab+(nSpc*40), oPen1 )

EndIf

nRow += 1

If !Empty( aRefBar[01] )

oPrinter:Say(nRow*mLarg, nTab+(nSpc*002), cTroca , oFontCAB )

EndIf

ENDPAGE

oPen1:End()

id=code>id=code>

xharbour 1.1.0 + gtwvw + fw 8.04+vsx e começando + xbrowse

migrando p/ o 10.2 e implementando nfe (classe do gilmer) e futuramente paf-ecf

msn..: zazibr@hotmail.com

skype: zazibr

Daniel lopes Filho

Campo Grande/MS

[microfly]

Leandro e Daniel Obrigado pela força, tenho certeza que com esses exemplos vou obter resultados, qdo eu conseguir posto aqui para vcs o resultado.

Muito obrigado pela força, se precisar e eu puder ajudar conte comigo segue meu msn e skype

MSN : microfly@hotmail.com

SKYPE: suporte.microfly

Luiz Carlos

www.microfly.com.br

São Paulo - Zona Norte

(11) 2645-8412

[microfly]

Leandro e Daniel , obrigado meu amigos, o Daniel matou a Pal, fiz com a Print nativa e ficou melhor do que com a propria zebra, Leandro o seu ex: Funfou tb.

Luiz Carlos

www.microfly.com.br

(11) 2645-8412

São Paulo - Santana - Zona Norte