Imprimir na Rabbit 214 BR

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
rmg
Usuário Nível 1
Usuário Nível 1
Mensagens: 27
Registrado em: 02 Mar 2006 11:54
Localização: Ipanema/MG

Imprimir na Rabbit 214 BR

Mensagem por rmg »

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.
robson de goes pereira
Usuário Nível 1
Usuário Nível 1
Mensagens: 2
Registrado em: 03 Mar 2006 16:52
Localização: Ourinhos - SP
Contato:

Mensagem por robson de goes pereira »

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
***************************
Avatar do usuário
rmg
Usuário Nível 1
Usuário Nível 1
Mensagens: 27
Registrado em: 02 Mar 2006 11:54
Localização: Ipanema/MG

Mensagem por rmg »

Valeu a ajuda.

Fiquei em duvida somente em relacao aos primeiros caracteres dos comandos que sairam no site como quadrados, mas depois descobri que e o CHR(2).

No mais deu tudo certo e ja estou imprimindo na rabbit.

Valeu mesmo a ajuda.
Obrigado.
Responder