Programa fonte do USB.EXE
Enviado: 06 Jun 2007 14:31
Galera,
Atendendo a solicitações, segue o programa fonte do USB.EXE
Usei a Win32prn do xharbour.
Primeiro criei um sisteminha externo, o qual compartilei com todos.
Depois chequei a conclusão, que com algumas alterações poderia implmentar dentro do meu próprio sistema.
E foi o que eu fiz.
Eliminei o sistema externo e usando a mesma idéia, não foi preciso alterar cada relatorio do sistema. Como todo relatorio do mesu sistema cria um arquivo txt antes da impressão, com as devidas configuracoes de fontes:
[NEGRITO]
[CONDESADO]
[NORMAL]
[EXPANDIDO]
Depois leio o arquivo linha a linha e verifico se existe alguma configuraçao de fonte, limpo a configuração para nao ser impresso e defino a fonte a ser usada
- oPrinter:SetFont("Courier New",vm_nNormal, 0).
SEGUE O FONTE DO USB.EXE (em anexo)
Aconselho testarem também o PDFCreator. Mostra na tela com exatamente como será impresso, envia via e-mail, para a porta USB e etc.
Espero que ajude!
Um grande abraços a todos,
Heveraldo
Clipper.52 / xHarbour / GTWVW
Atendendo a solicitações, segue o programa fonte do USB.EXE
Usei a Win32prn do xharbour.
Primeiro criei um sisteminha externo, o qual compartilei com todos.
Depois chequei a conclusão, que com algumas alterações poderia implmentar dentro do meu próprio sistema.
E foi o que eu fiz.
Eliminei o sistema externo e usando a mesma idéia, não foi preciso alterar cada relatorio do sistema. Como todo relatorio do mesu sistema cria um arquivo txt antes da impressão, com as devidas configuracoes de fontes:
[NEGRITO]
[CONDESADO]
[NORMAL]
[EXPANDIDO]
Depois leio o arquivo linha a linha e verifico se existe alguma configuraçao de fonte, limpo a configuração para nao ser impresso e defino a fonte a ser usada
- oPrinter:SetFont("Courier New",vm_nNormal, 0).
SEGUE O FONTE DO USB.EXE (em anexo)
Aconselho testarem também o PDFCreator. Mostra na tela com exatamente como será impresso, envia via e-mail, para a porta USB e etc.
Espero que ajude!
Um grande abraços a todos,
Heveraldo
Clipper.52 / xHarbour / GTWVW