Impressora Zebra
Enviado: 12 Fev 2009 17:07
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
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