Imprimir Lpt1 e Usb
Moderador: Moderadores
- rubens
- Colaborador

- Mensagens: 1520
- Registrado em: 16 Ago 2003 09:05
- Localização: Nova Xavantina - MT
Imprimir Lpt1 e Usb
Olá...
Uma das grandes vantagens quando se migra do clipper para o harbour é justamente poder imprimir em qualquer impressora instalada no windows. Mas não é bem assim... Sempre tem que mexer em alguma coisa ou criar relatórios novos. O meio mais fácil é direcionar o relatório para um arquivo e enviar esse arquivo para a impressora através do Win_PrintFileRaw(). Só que o só vai conseguir imprimir em impressoras RAW ficando de fora as gráficas, normalmente as LaserJet mais novas, principalmente da Hp. Daí não tem jeito é recriar os relatórios novamente. Daí o inconveniente de um relatório para matricial e outro para a laser. Aqui no Fórum já foi postados exemplos que na época eu não consegui compilar. Através de um exemplo do Toledo com HWGui foi possível compilar as funções em anexo e gerar no mesmo relatório tanto para Matricial como para USB.. Não se importa se RAW ou Gráfica. Usei a HaruPdf e para visualizar os pdf o Sumatra, que fica livre, é só para visualizar mesmo. No exemplo é criado um relatório simples com uso de Expandido, negrito e condensado. Para quem está migrando agora talvez ajude.
As libs necessárias para compilação estão mencionadas no programa. Rubens
Uma das grandes vantagens quando se migra do clipper para o harbour é justamente poder imprimir em qualquer impressora instalada no windows. Mas não é bem assim... Sempre tem que mexer em alguma coisa ou criar relatórios novos. O meio mais fácil é direcionar o relatório para um arquivo e enviar esse arquivo para a impressora através do Win_PrintFileRaw(). Só que o só vai conseguir imprimir em impressoras RAW ficando de fora as gráficas, normalmente as LaserJet mais novas, principalmente da Hp. Daí não tem jeito é recriar os relatórios novamente. Daí o inconveniente de um relatório para matricial e outro para a laser. Aqui no Fórum já foi postados exemplos que na época eu não consegui compilar. Através de um exemplo do Toledo com HWGui foi possível compilar as funções em anexo e gerar no mesmo relatório tanto para Matricial como para USB.. Não se importa se RAW ou Gráfica. Usei a HaruPdf e para visualizar os pdf o Sumatra, que fica livre, é só para visualizar mesmo. No exemplo é criado um relatório simples com uso de Expandido, negrito e condensado. Para quem está migrando agora talvez ajude.
As libs necessárias para compilação estão mencionadas no programa. Rubens
"Eu e minha casa servimos ao Senhor e você
"
- Pablo César
- Usuário Nível 7

- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
Imprimir Lpt1 e Usb
Obrigado Rubens
Um clip-abraço !
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Imprimir Lpt1 e Usb
:-Y X:)
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
lucasburitis
- Usuário Nível 1

- Mensagens: 12
- Registrado em: 19 Abr 2015 22:14
- Localização: ARIQUEMES
Imprimir Lpt1 e Usb
Meus caros,
Usei esse modelo do Rubens pra gerar pdf a partir do txt.
Tudo certo com um problema, não mostra os caracteres acentuados.
Já alterei os fontes para UTF-8 e nada.
já tentei
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_SetCodePage( "PT850" )
HB_LANGSELECT("PT")
também já tentei
REQUEST HB_CODEPAGE_UTF8EX
hb_cdpSelect( "UTF8EX" )
Isso no fonte principal
O relatório em pdf continua eliminando os caracteres acentuados ou substituindo por outros.
Se alguem puder me ajudar. . .
Usei esse modelo do Rubens pra gerar pdf a partir do txt.
Tudo certo com um problema, não mostra os caracteres acentuados.
Já alterei os fontes para UTF-8 e nada.
já tentei
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_SetCodePage( "PT850" )
HB_LANGSELECT("PT")
também já tentei
REQUEST HB_CODEPAGE_UTF8EX
hb_cdpSelect( "UTF8EX" )
Isso no fonte principal
O relatório em pdf continua eliminando os caracteres acentuados ou substituindo por outros.
Se alguem puder me ajudar. . .
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Imprimir Lpt1 e Usb
Amiguinhos,
lucasburitis
O arquivo .TXT está sendo salvo em UTF-8?
lucasburitis
O arquivo .TXT está sendo salvo em UTF-8?
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
lucasburitis
- Usuário Nível 1

- Mensagens: 12
- Registrado em: 19 Abr 2015 22:14
- Localização: ARIQUEMES
Imprimir Lpt1 e Usb
Boa noite Rochinha,
Tanto os fontes prg quanto o txt gerado é ANSI.
Hoje consegui resolver. Na função TxtToPdf()
Alterei a variável
font := HPDF_GetFont( pdf, "Courier", NIL ) para font := HPDF_GetFont( pdf, "Corbel", "CP1252" )
Deu certinho, acentuação saindo ok.
Grato pelo atenção.
Tanto os fontes prg quanto o txt gerado é ANSI.
Hoje consegui resolver. Na função TxtToPdf()
Alterei a variável
font := HPDF_GetFont( pdf, "Courier", NIL ) para font := HPDF_GetFont( pdf, "Corbel", "CP1252" )
Deu certinho, acentuação saindo ok.
Grato pelo atenção.
- rubens
- Colaborador

- Mensagens: 1520
- Registrado em: 16 Ago 2003 09:05
- Localização: Nova Xavantina - MT
Imprimir Lpt1 e Usb
Bom dia...
Ótimo .... parabéns...
Para isso que server o Fórum... tenta isso, tenta aquilo até que dá certo... não 'Olha no manual tal' que você encontra... O tempo que o cara indicando o manual, basta dar um sugestão que quem tá precisando vai lá tenta, tenta de novo e se não der certo tenta de novo.. não consegue volta aqui com cara cachorro que caiu da mudança e fala 'não deu certo, alguma outra sugestão ?'...
E eu também não sabia... agora sei como fazer...
Rubens
Ótimo .... parabéns...
Para isso que server o Fórum... tenta isso, tenta aquilo até que dá certo... não 'Olha no manual tal' que você encontra... O tempo que o cara indicando o manual, basta dar um sugestão que quem tá precisando vai lá tenta, tenta de novo e se não der certo tenta de novo.. não consegue volta aqui com cara cachorro que caiu da mudança e fala 'não deu certo, alguma outra sugestão ?'...
E eu também não sabia... agora sei como fazer...
Rubens
"Eu e minha casa servimos ao Senhor e você
"
-
clauberromao
- Usuário Nível 1

- Mensagens: 24
- Registrado em: 17 Mai 2018 19:54
- Localização: sobral/ceara
Imprimir Lpt1 e Usb
alquem me indica como faço para imprimir direto para impressora sem a necessidade de abrir o gerenciador de impressao. é para impressao de fita de comprovante de venda em uma impressora térmica, onde o relatório tem que ser gerardo de forma rápida, sem fazer o usuário clicar várias opções ou pré visualizar o relatório, antes de enviar para impressora. desde já agradeço a atençao de todos que nos ajudam em momentos de difuculdades.
-
Fernando queiroz
- Usuário Nível 4

- Mensagens: 779
- Registrado em: 13 Nov 2014 00:41
- Localização: Porto Alegre/RS
Imprimir Lpt1 e Usb
Usando a PDFCLASS do Quintas os PDF viram moleza , aí você imprime onde quiser
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
Imprimir Lpt1 e Usb
Ola!
Não esquecer que raw é o texto puro ascii.
Impressoras matriciais usam como padrão é muito rápido a impressão. LX350 para formulários continuo de até 4 vias.
Imprimir PDF/DOC(Word) nessas impressoras, embora aceite é lento.
Saudações,
Itamar M. Lins Jr.
Não esquecer que raw é o texto puro ascii.
Impressoras matriciais usam como padrão é muito rápido a impressão. LX350 para formulários continuo de até 4 vias.
Imprimir PDF/DOC(Word) nessas impressoras, embora aceite é lento.
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.
-
clauberromao
- Usuário Nível 1

- Mensagens: 24
- Registrado em: 17 Mai 2018 19:54
- Localização: sobral/ceara
Imprimir Lpt1 e Usb
amigos obrigado pelas dicas, mas não é ainda o que necessito, vejam só:
inicio o relatório com:
SELECT PRINTER DIALOG PREVIEW
START PRINTDOC NAME 'Gerenciador de Impressão '
START PRINTPAGE
...
...
...
FINALIZO COM:
END PRINTPAGE ; END PRINTDOC
*****
ATÉ AI TUDO CERTO, a questão é como faço, para que o relatório vá direto para impressora sem tem q abrir a janelas com opões de impressão.
?
inicio o relatório com:
SELECT PRINTER DIALOG PREVIEW
START PRINTDOC NAME 'Gerenciador de Impressão '
START PRINTPAGE
...
...
...
FINALIZO COM:
END PRINTPAGE ; END PRINTDOC
*****
ATÉ AI TUDO CERTO, a questão é como faço, para que o relatório vá direto para impressora sem tem q abrir a janelas com opões de impressão.
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
Imprimir Lpt1 e Usb
Ola!
Esses comandos não são do Harbour.
Saudações,
Itamar M. Lins Jr.
Esses comandos não são do Harbour.
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.
-
clauberromao
- Usuário Nível 1

- Mensagens: 24
- Registrado em: 17 Mai 2018 19:54
- Localização: sobral/ceara
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
Imprimir Lpt1 e Usb
Ola!
O que é isso miniprint ?
Vc usa qual lib grafica ? Minigui ?
Saudações,
Itamar M. Lins Jr.
O que é isso miniprint ?
Vc usa qual lib grafica ? Minigui ?
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
Imprimir Lpt1 e Usb
Ola!
Já vi aqui, é da Minigui.
O que diz o manual desses comandos ?
Já viu a sintaxe deles ?
Saudações,
Itamar M. Lins Jr.
Já vi aqui, é da Minigui.
O que diz o manual desses comandos ?
Já viu a sintaxe deles ?
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.