Imprimir Lpt1 e Usb

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Imprimir Lpt1 e Usb

Mensagem por rubens »

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.
IMPRIME.PRG
(11.54 KiB) Baixado 935 vezes
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

Imprimir Lpt1 e Usb

Mensagem por Pablo César »

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.
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Imprimir Lpt1 e Usb

Mensagem por rochinha »

:-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.
lucasburitis
Usuário Nível 1
Usuário Nível 1
Mensagens: 12
Registrado em: 19 Abr 2015 22:14
Localização: ARIQUEMES

Imprimir Lpt1 e Usb

Mensagem por lucasburitis »

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. . .
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Imprimir Lpt1 e Usb

Mensagem por rochinha »

Amiguinhos,

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.
lucasburitis
Usuário Nível 1
Usuário Nível 1
Mensagens: 12
Registrado em: 19 Abr 2015 22:14
Localização: ARIQUEMES

Imprimir Lpt1 e Usb

Mensagem por lucasburitis »

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.
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Imprimir Lpt1 e Usb

Mensagem por rubens »

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
"Eu e minha casa servimos ao Senhor e você ???"
clauberromao
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 17 Mai 2018 19:54
Localização: sobral/ceara

Imprimir Lpt1 e Usb

Mensagem por clauberromao »

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
Usuário Nível 4
Mensagens: 779
Registrado em: 13 Nov 2014 00:41
Localização: Porto Alegre/RS

Imprimir Lpt1 e Usb

Mensagem por Fernando queiroz »

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
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Imprimir Lpt1 e Usb

Mensagem por Itamar M. Lins Jr. »

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.
Saudações,
Itamar M. Lins Jr.
clauberromao
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 17 Mai 2018 19:54
Localização: sobral/ceara

Imprimir Lpt1 e Usb

Mensagem por clauberromao »

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. ????
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Imprimir Lpt1 e Usb

Mensagem por Itamar M. Lins Jr. »

Ola!
Esses comandos não são do Harbour.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
clauberromao
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 17 Mai 2018 19:54
Localização: sobral/ceara

Imprimir Lpt1 e Usb

Mensagem por clauberromao »

miniprint
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Imprimir Lpt1 e Usb

Mensagem por Itamar M. Lins Jr. »

Ola!
O que é isso miniprint ?
Vc usa qual lib grafica ? Minigui ?

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Imprimir Lpt1 e Usb

Mensagem por Itamar M. Lins Jr. »

Ola!
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.
Responder