PC Toledo

Amigo Wagner. Seu altruísmo e sua boa vontade não conseguiram me explicar onde entra o PRWIN ao iniciar um relatório.

Ex.: INCICIO DO RELATORIO DENTRO DO PRG..
SUPONDO QUE SE USE O velho "prow()" ou PCL COM ? e ??

SET DEVICE TO PRINT
@ PROW()+01,01 SAY " inicio do relatorio"
linhas a serem impressas
@ PROW()+01,01 SAY "fim do relatorio"
eject

Agora onde entra o PRWIN nesse relatorio?

Estou prestes a perder o cliente POR CAUSA DA IMPRESSORA EPSON STYLLUS C63 ( ele comprou sem me consultar )

Abraços
gavel

Amigo Gavel,

Não utilizo o PRWIN, mas pelo que já li a respeito, vc terá que gerar seu relatório para um TXT e então copiar esse TXT para uma pasta "monitorada" pelo PRWIN que então... a partir daí... este se encarrega de IMPRIMIR seu relatório em alguma impressora instalada em seu sistema operacional.

Em vez de vc colocar: faça: Depois copie o TESTE.TXT para a pasta que o PRWIN está configurado a monitorar....

Veja mais aqui

Espero que ajude...

Wagner, corriga-me se eu estiver errado...

Um Abraço

Janio

Gavel,
Você poderia me enviar o Prwin pro meu e-mail ?
Caso você tenha aprendido a usar este Prwin, você poderia me passar como utiliza ?
Obrigado,

[]´s
Wagner
wcardoso@oi.com.br

Podem adquirir o PRWIN diretamente da página de Wagner Nunes, que aliás fez uma cirurgia recentemente e envio a ele meus préstimos de rápida convalescença e que retorne brevemente à sua labuta.
www.vagucs.com.br
Abraços
Gavel

Bom dia Gavel, uma vez fiz testes com o PRWIN, neste caso a pasta monitorada citada pelo amigo Janio está em f:\Projeto, ficou assim:


telaImp:= savenv(5,20,19,48)
RUN PRWIN LISTA //IMPRIME COM PROPAGANDAS
RUN PRWIN SIL:LISTA //IMPRIME SEM PROPAGANDAS
handle=fopen("pr.txt")
impressora={}
do while .t.
linha=fgetline()
if !empty(linha)
aadd(impressora,linha)
else
rstenv(telaImp)
exit
end if
enddo
fclose(handle)
do while .t.
Win( 5,20,17,46,"Configurar Impressora","W+/G","G/W*")
resp:=Achoice( 6,21,16,45,impressora)
if lastkey()=13
resp=alltrim(str(resp))
set printer to F:\Projeto\CIDADES.txt
set device to printer
set printer on
set console off
* @prow(), pcol() say strzero(resp,2) //PRWIN WINDOWS
Rel_Cida(xcod_cid)
RUNCMD="PRWIN SIL:IMPRIME "+RESP+" CIDADES.TXT"
RUN &RUNCMD
else
exit
end if
enddo


Abraços, veja se funciona, qualquer coisa entre em contato.

Bom dia, Marcos.
Obrigado pela dica. Mas qual versão do PRWIN você usou?

Abraços
Gavel

Bom dia, Marcos.
Obrigado pela dica. Mas qual versão do PRWIN você usou?
A impressão saiu com os comandos que você enviava normalmente, tais como : condensado, negrito, etc.?
Abraços
Gavel

Sairam com os mesmo comandos que enviei, na época usei a primeira versão que vinha com a Tela for Windows de Controle, não me lembro exatamente qual era.
Marcos.

VALEU MARCOS.

Vou utilizar no formato que você usou. Qualquer novidade eu entro em contato.

Abrços
Gavel

Gente, existem 3 versões do PRWIN, a que a gente usa via comando RUN é a versão 1.0 que não imprime em maior parte das impressoras mais novas, a versão mais indicada é a que está no meu site que é a versão 3.5.

Ela funciona da seguinte maneira.

Vc abre ele e ele fica na bandeja do sistema ao lado do relógio. Ai vc tem que enviar o relatório para uma pasta que o PRWIN fica monitorando, e todo o arquivo que chega nesta pasta é impresso.

Vc pode também usar o LPT2FILE que desvia qualquer LPT local para um arquivo, usando assim: LPT2FILE LPT1=C:\PRWIN\RELAT.PRN, supondo que o PRWIN esteja monitorando a pasta C:\PRWIN, assim quando vc mandar imprimir na LPT1 vai para o arquivo, consequentemente o PRWIN pega este arquivo e faz a impressão, essa forma é muito útil quando não se tem os fontes do sistema.

Em impressora USB talvez vc precisa marcar a caixa "Forçar relatório gráfico", assim os PRWIN passa a interpretar os comandos de impressão para que eles funcionem em qualquer tipo de impressora.

Este comandos podem ser alterados, excluidos, incluidos, o PRWIN tem uma série de comandos PRÉ-cadastrados.

Acho que é isso, qualquer dúvida postem aqui ou se quiser me mandem e-mail.

Obrigado Wagner.

Já baixei o PRWIn 3.5. Vou testá-lo na impressora EPSON STYLLUS C63

Abraço

Gavel