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
******************************************************************************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.

