Imprimir Etiquetas em USB

[tonicm]

Boas.
Estou a usar uma impressora Zebra LP 2824 em USB.

Testei os exemplos que estão na pasta "contrib\hbzebra\tests", mas os mesmos imprimem em folha A4.

Será que alguém pode dar algumas ideias de como colocar a imprimir etiquetas nesta impressora ?
Obrigado desde já.

[Jairo Maia]

Olá tonicm,

Essa lib não foi projetada para imprimir na impressora da marca Zebra. Acho que ela leva esse nome porque imprime códigos de barras, sei lá. O que sei é que ela não pode ser usada para essa impressora.

Quero deixar claro que não tenho nenhuma experiência com impressora Zebra, trabalho com a Argox, é a única que conheço. Mas como os métodos são parecidos quanto a impressão, ou seja,ambas imprimem apenas em modo RAW, extraí um exemplo de etiqueta desse tópico: https://pctoledo.org/forum/viewto ... ilit=zebra, e acho que para você testar seria isso:

Código: Selecionar todos

Function Main()

 Local cTexto:=""

 cTexto+=[N]
 cTexto+=[ZT]
 cTexto+=[D3]
 cTexto+=[R0,0]
 cTexto+=[A650,001,1,1,2,1,N," CORPO MAGICO"]
 cTexto+=[A610,001,1,1,2,1,N,"BATA FLORES BCO"]
 cTexto+=[B580,001,1,1,3,3,080,N,"0020167"]
 cTexto+=[A495,001,1,1,2,2,N,"00201670016800"]
 cTexto+=[A470,001,1,1,2,1,N,"ANNE FERNANDES"]
 cTexto+=[A445,001,1,1,2,1,N,"------------------------------"]
 cTexto+=[A400,001,1,1,2,1,N,"BATA FLORES BCO"]
 cTexto+=[B370,001,1,1,3,3,080,N,"0020167"]
 cTexto+=[A275,001,1,1,2,2,N,"00201670016800"]
 cTexto+=[A235,001,1,1,2,2,N,"3 x 169,00"]
 cTexto+=[P1]

 Hb_MemoWrit( "Etiqueta.Txt", cTexto )

 Hb_PrintFileRaw( cNomeImpressora, "Etiqueta.Txt", "Etiqueta Zebra" )

Return Nil

Ademais, você tem que baixar e estudar o manual da impressora Zebra.

[dbdc5554]

BOM dia

vou ver se acho o manual....


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

@ PRow(), PCol() say enter
@ PRow(), PCol() say "N" + enter
@ PRow(), PCol() say "ZT" + enter
@ PRow(), PCol() say "D10" + enter
@ PRow(), PCol() say "R0,0" + enter

*A,p1,p2,p3,p4,p5,p6,p7,"texto a imprimir"
*p1 = posição no eixo X em pixels - Coluna
*p2 = posição no eixo Y em pixels - Linha
*p3 = rotação - 0 = sem rotação, 1 = 90º, 2 = 180º, 3= 270º
*p4 = código da fonte
*p5 = multiplicador horizontal da fonte ( para aumentar o tamanho das
*letras )
*p6 = multiplicador vertical da fonte ( para aumentar o tamanho das letras )
*p7 = indicador de texto Normal ou Reverso ( texto branco num fundo preto )

@ PRow(), PCol() say [A560,315,2,2,1,1,N,"] + alltrim(vdesc11s) + ["] + enter
@ PRow(), PCol() say [A560,295,2,2,1,1,N,"] + alltrim(vdesc12s) + ["] + enter

@ PRow(), PCol() say [B560,280,2,1,2,1,060,N,"] + vcbr1 + ["] + enter

@ PRow(), PCol() say [A560,210,2,1,1,1,N,"] + vcbr1 + [ ] + vpre1i+[ ]+vgrupo1 +[ ]+ vitem1 + ["] + enter

@ PRow(), PCol() say [A560,170,2,2,1,1,N,"] + substr(gmprod->codint_for,5,20)+ ["] + enter

@ PRow(), PCol() say [B560,110,2,1,2,1,050,N,"] + vcbr1 + ["] + enter
@ PRow(), PCol() say [A560,050,2,1,1,1,N,"] + vcbr1 + [ ] + vgrupo1 +[ ]+ vitem1 + ["] + enter

@ PRow(), PCol() say "P1" + enter

[dbdc5554]

cComando := "xa"+CHR(10)

@ PRow(), PCol() say cComando


para configurar a etiqueta.... ai a zebra posiciona corretamente. MUITO util quando se troca a etiqueta ou quando se esta desenvolvendo
uma nova etiqueta.


NAo achei o manualzinho que tinha

[tonicm]

Criar a etiqueta eu já sabia, faltava era saber como enviar para a impressora.
Com o comando em modo raw funciona perfeitamente:

Código: Selecionar todos

Hb_PrintFileRaw( cNomeImpressora, "Etiqueta.Txt", "Etiqueta Zebra" )

Obrigado pela ajuda.

Olá tonicm,

Essa lib não foi projetada para imprimir na impressora da marca Zebra. Acho que ela leva esse nome porque imprime códigos de barras, sei lá. O que sei é que ela não pode ser usada para essa impressora.

Quero deixar claro que não tenho nenhuma experiência com impressora Zebra, trabalho com a Argox, é a única que conheço. Mas como os métodos são parecidos quanto a impressão, ou seja,ambas imprimem apenas em modo RAW, extraí um exemplo de etiqueta desse tópico: https://pctoledo.org/forum/viewto ... ilit=zebra, e acho que para você testar seria isso:

Código: Selecionar todos

Function Main()

 Local cTexto:=""

 cTexto+=[N]
 cTexto+=[ZT]
 cTexto+=[D3]
 cTexto+=[R0,0]
 cTexto+=[A650,001,1,1,2,1,N," CORPO MAGICO"]
 cTexto+=[A610,001,1,1,2,1,N,"BATA FLORES BCO"]
 cTexto+=[B580,001,1,1,3,3,080,N,"0020167"]
 cTexto+=[A495,001,1,1,2,2,N,"00201670016800"]
 cTexto+=[A470,001,1,1,2,1,N,"ANNE FERNANDES"]
 cTexto+=[A445,001,1,1,2,1,N,"------------------------------"]
 cTexto+=[A400,001,1,1,2,1,N,"BATA FLORES BCO"]
 cTexto+=[B370,001,1,1,3,3,080,N,"0020167"]
 cTexto+=[A275,001,1,1,2,2,N,"00201670016800"]
 cTexto+=[A235,001,1,1,2,2,N,"3 x 169,00"]
 cTexto+=[P1]

 Hb_MemoWrit( "Etiqueta.Txt", cTexto )

 Hb_PrintFileRaw( cNomeImpressora, "Etiqueta.Txt", "Etiqueta Zebra" )

Return Nil

Ademais, você tem que baixar e estudar o manual da impressora Zebra.

[dbdc5554]

Uma DUVIDA

faço na unha + acho muito complicado. por ser linha x coluna gráfica , de certa forma de cabeça para baixo (rs)
ou ter que usar ROTAÇÂO.

Não teria uma forma de se desenhar e depois USAR ou CONVERTER para Linhaxcoluna Grafica ?

sei que tem uns utilitários tipo designer + nunca nem mexi ou olhei.



Paiva