Página 1 de 1

MISTERIO Prow() direto em HP usb

Enviado: 16 Set 2015 17:17
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.

MISTERIO Prow() direto em HP usb

Enviado: 17 Set 2015 13:29
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.

MISTERIO Prow() direto em HP usb

Enviado: 17 Set 2015 14:06
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