MISTERIO Prow() direto em HP usb

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

MISTERIO Prow() direto em HP usb

Mensagem por paiva_dbdc »

MISTERIO...

para imprimir em hp ou impressoras USB
faço: gravo em arquivo e depois mando imprimir.

Código: Selecionar todos

pprt = _obter_imp()

    set device to printer
    a = ppath + [\] +alltrim(pusuario) + '.txt'
    set printer to &a

if  val(alltrim(substr(crclie->nome,36,5))) > 0
    @ prow()+12, 10  say substr(crclie->nome,1,35) +[           ]+[ ]+crclie->numero
else
    @ prow()+12, 10  say substr(crclie->nome,1,40) +[      ]+[ ]+crclie->numero
endif
@ prow()+ 2, 10  say crclie->endereco+[ ]+crclie->numero+[  ]+crclie->bairro

@ prow()+ 5, 22  say [______________________________________]

 do proprtnorm                                &&  desativa reducao

 eject
 set printer to

 set device to screen

 PrintFileRaw(pprt,a)

 close databases

 return

**********************************************************************************

NAo sei o que aconteceu AGORA aqui em casa imprimo direto usando prow em uma HP USB ??!!! o que aconteceu ?

Código: Selecionar todos

pprt = _obter_imp()

    set device to printer

      set printer to &pprt
    
if  val(alltrim(substr(crclie->nome,36,5))) > 0
    @ prow()+12, 10  say substr(crclie->nome,1,35) +[           ]+[ ]+crclie->numero
else
    @ prow()+12, 10  say substr(crclie->nome,1,40) +[      ]+[ ]+crclie->numero
endif
@ prow()+ 2, 10  say crclie->endereco+[ ]+crclie->numero+[  ]+crclie->bairro

@ prow()+ 2, 02  say [==============================]
@ prow()+ 1, 02  say [==============================]

@ prow()+1,22   say [==================================================]
@@ prow()+ 5, 22  say [______________________________________]

 do proprtnorm                                &&  desativa reducao

 eject
 set printer to

 set device to screen

 close databases

 return


******************************************************************************
o que andou acontecendo antes.
ao gerar o txt tenho um preview em Hwgui que exibe.
coloquei um botão no preview para fazer a carta de aviso do cliente. ok

a rotina dentro do preview(hwgui) usei prow() normalmente
MESMO a impressora do cliente sendo MATRICIAL NÂO saiu NADA

AI percebi que o prow NÃO funcionaria na hwgui (como tambem NAo funciona na fwh)

mudei a funcao para fora do programa de preview e encerrei a dialog antes de chama-lo

de-repente percebi que o prow tava funcionando na HP MILAGRE ?

desliguei o pc e a HP e continua funcionado OK
kkkk

vai entender.
Editado pela última vez por Toledo em 16 Set 2015 21:55, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

MISTERIO Prow() direto em HP usb

Mensagem por alaminojunior »

Os comandos para console, dentro de um .prg que contenha o header hwgui.ch, não irão funcionar.
Precisa colocar os comandos e funções para console, dentro de um .prg a parte.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

MISTERIO Prow() direto em HP usb

Mensagem por paiva_dbdc »

boa

o estranho é o prow() passar a funcionar em uma HP
NUNCA funcionou

vou verificar se os outro relatorios funcionam mandando direto para a HP ou se tem algo que NAo estou vendo

PAiva
Responder