Impressora Zebra

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Sergio Cabral
Usuário Nível 2
Usuário Nível 2
Mensagens: 52
Registrado em: 18 Set 2004 18:51
Localização: São José dos Campos

Impressora Zebra

Mensagem por Sergio Cabral »

Com a ajuda de voces, consegui imprimir etiquetas na impressora zebra mas após todas as etiquetas imppressas a impressora salta folha e eu queria que ela imprimisse uma etiqueta e parasse para que o programa possa imprimir outras etiquetas.
Se alguem souber o comando que faz isso, por favor me informe.
Abaixo está a rotina que eu estou usando para impressão.

x_Nomlst := 'Supermercado Teste'
set cons off
set print on
set devi to print
use etiqueta
go top
do while !eof()
npre := preco
desc = descricao
? chr(13)+chr(10)
? 'D11'+chr(13)+chr(10)
? 'N'+chr(13)+chr(10)
? 'JF'+chr(13)+chr(10)
? 'q800'+chr(13)+chr(10)
? 'Q240,10'+chr(13)+chr(10)
? 'A10,5,0,1,1,1,N,"'+x_Nomlst+'"'+chr(13)+chr(10)
? 'A10,20,0,1,2,6,N,"'+substr(desc,1,39)+'"'+chr(13)+chr(10)
? 'A225,85,0,2,3,8,N,"* R$ '+substr(trans(nPre,"@E 9999,999.99"),1,8)+'"'+chr(13)+chr(10)
? 'A695,85,0,1,2,8,N,"'+substr(trans(nPre,"@E 9999,999.99"),9)+'"'+chr(13)+chr(10)
*? 'A760,85,0,2,3,8,N,"*"'+chr(13)+chr(10)
? 'P1'
? 'JF'
skip
enddo
set print off
set cons on
set devi to screen
Sou programador em Clipper 5.01 a 15 anos e procuro melhorar meus conhecimentos. Este site me parece muito bom e poderemos nos ajudar.
Avatar do usuário
filizola
Usuário Nível 3
Usuário Nível 3
Mensagens: 421
Registrado em: 19 Ago 2003 20:10
Localização: Belo Horizonte/MG

Re: Impressora Zebra

Mensagem por filizola »

utilizo esta impressora e acho que o que esta faltando para vc seria calibrar esta impressora, leia no manual como fazê-lo
"Um passo a frente, e já não estará mais no mesmo lugar..."
Responder