Clipper On Line • Ver Tópico - Imprimir Lpt1 e Usb

Imprimir Lpt1 e Usb

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

Moderador: Moderadores

 

Imprimir Lpt1 e Usb

Mensagempor rubens » 24 Mar 2017 19:04

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 690 vezes


Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Imprimir Lpt1 e Usb

Mensagempor Pablo César » 24 Mar 2017 20:52

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 de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Imprimir Lpt1 e Usb

Mensagempor rochinha » 25 Mar 2017 01:13

:-Y X:)
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4547
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 806 vezes
Mens.Curtidas: 246 vezes

Imprimir Lpt1 e Usb

Mensagempor lucasburitis » 29 Mar 2020 23:48

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. . .
lucasburitis
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 19 Abr 2015 22:14
Cidade/Estado: ARIQUEMES
Curtiu: 5 vezes
Mens.Curtidas: 0 vez

Imprimir Lpt1 e Usb

Mensagempor rochinha » 30 Mar 2020 19:12

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 fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4547
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 806 vezes
Mens.Curtidas: 246 vezes

Imprimir Lpt1 e Usb

Mensagempor lucasburitis » 31 Mar 2020 22:38

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.
lucasburitis
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 19 Abr 2015 22:14
Cidade/Estado: ARIQUEMES
Curtiu: 5 vezes
Mens.Curtidas: 0 vez

Imprimir Lpt1 e Usb

Mensagempor rubens » 01 Abr 2020 11:01

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ê ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Imprimir Lpt1 e Usb

Mensagempor clauberromao » 08 Jun 2020 12:14

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.
clauberromao
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 17 Mai 2018 19:54
Cidade/Estado: sobral/ceara
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Imprimir Lpt1 e Usb

Mensagempor Fernando queiroz » 08 Jun 2020 12:49

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
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Imprimir Lpt1 e Usb

Mensagempor Itamar M. Lins Jr. » 08 Jun 2020 13:33

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6949
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Imprimir Lpt1 e Usb

Mensagempor clauberromao » 08 Jun 2020 14:28

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. ????
clauberromao
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 17 Mai 2018 19:54
Cidade/Estado: sobral/ceara
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Imprimir Lpt1 e Usb

Mensagempor Itamar M. Lins Jr. » 08 Jun 2020 14:40

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

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6949
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Imprimir Lpt1 e Usb

Mensagempor clauberromao » 08 Jun 2020 15:13

miniprint
clauberromao
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 17 Mai 2018 19:54
Cidade/Estado: sobral/ceara
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Imprimir Lpt1 e Usb

Mensagempor Itamar M. Lins Jr. » 08 Jun 2020 15:17

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

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6949
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Imprimir Lpt1 e Usb

Mensagempor Itamar M. Lins Jr. » 08 Jun 2020 15:21

Ola!
Já vi aqui, é da Minigui.
O que diz o manual desses comandos ?

Já viu a sintaxe deles ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6949
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes

Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro