Utilizo o xHarbour no Linux, mas rodo meus sistemas no Windows utilizando o Putty, entao coloco a impressora na qual o sistema vai imprimir no Remota Linux do Putty.
Tive alguns problemas pra imprimir na impressora zebra tlp 2844, mas consegui imprimir, utilizando os proprios comandos da zebra. imprime inclusive codigos de barra.
Mas agora me deparei com um problema. Um cliente comprou uma impressora Rabbit 214 BR e o sistema tem que imprimir etiquetas e codigo de barras nela.
Entao gostaria de saber dos colegas, se alguem poderia me dizer os comandos para startar a impressora e imprimir.
Desde ja estou muito grato.
Imprimir na Rabbit 214 BR
Moderador: Moderadores
-
robson de goes pereira
- Usuário Nível 1

- Mensagens: 2
- Registrado em: 03 Mar 2006 16:52
- Localização: Ourinhos - SP
- Contato:
Nao se te ajudara, mas utilizo esta rotina para imprimir numa impressora rabbit e o mesmo codigo serve para a Datamax Alegro.
Observação: Rotina em Clipper
*****************
set printer to COM2
set device to print
x:=1
do while .T.
@ 00,00 say 'O0220'
@ 00,00 say 'M0300'
@ 00,00 say 'c0000'
@ 00,00 say 'f160'
@ 00,00 say 'e'
@ 00,00 say 'LC0000'
@ 00,00 say 'H09'
@ 00,00 say 'D11'
@ 00,00 say 'SC'
@ 00,00 say 'PC'
@ 00,00 say 'R0000'
@ 00,00 say 'z'
@ 00,00 say 'W'
@ 00,00 say '^01'
do case
case cadastrado
@ 00,00 say '191100200350100Doc.: '+(bsdoa->fdoc)
@ 00,00 say '191100100450010'+bsdoa->fnome
@ 00,00 say '191100200350010Reg:'
@ 00,00 say '191100200350038'+alltrim(str(bsdoa->fnum))
@ 00,00 say '191100200250015Data de Coleta:'+dtoc(dtcoleta)
@ 00,00 say '191100200550015Nome da Empresa'
@ 00,00 say 'Q0001'
@ 00,00 say 'E'
case !cadastrado
@ 00,00 say '191100200350100Doc.: '+(documento)
@ 00,00 say '191100100450010'+nomeam
@ 00,00 say '191100200250015Data de Coleta:'+dtoc(dtcoleta)
@ 00,00 say '191100200550015Nome da Empresa'
@ 00,00 say 'Q0001'
@ 00,00 say 'E'
endcase
x++
if x=5
exit
endif
enddo
set device to screen
***************************
Observação: Rotina em Clipper
*****************
set printer to COM2
set device to print
x:=1
do while .T.
@ 00,00 say 'O0220'
@ 00,00 say 'M0300'
@ 00,00 say 'c0000'
@ 00,00 say 'f160'
@ 00,00 say 'e'
@ 00,00 say 'LC0000'
@ 00,00 say 'H09'
@ 00,00 say 'D11'
@ 00,00 say 'SC'
@ 00,00 say 'PC'
@ 00,00 say 'R0000'
@ 00,00 say 'z'
@ 00,00 say 'W'
@ 00,00 say '^01'
do case
case cadastrado
@ 00,00 say '191100200350100Doc.: '+(bsdoa->fdoc)
@ 00,00 say '191100100450010'+bsdoa->fnome
@ 00,00 say '191100200350010Reg:'
@ 00,00 say '191100200350038'+alltrim(str(bsdoa->fnum))
@ 00,00 say '191100200250015Data de Coleta:'+dtoc(dtcoleta)
@ 00,00 say '191100200550015Nome da Empresa'
@ 00,00 say 'Q0001'
@ 00,00 say 'E'
case !cadastrado
@ 00,00 say '191100200350100Doc.: '+(documento)
@ 00,00 say '191100100450010'+nomeam
@ 00,00 say '191100200250015Data de Coleta:'+dtoc(dtcoleta)
@ 00,00 say '191100200550015Nome da Empresa'
@ 00,00 say 'Q0001'
@ 00,00 say 'E'
endcase
x++
if x=5
exit
endif
enddo
set device to screen
***************************