Valeu Paulo!
Agora fechou.
Um abraço.
Rosalvo
de txt para pdf
Moderador: Moderadores
21 Mensagens • Página 2 de 2 • 1, 2
Re: de txt para pdf
por rosalvo rosa » 09 Nov 2009 12:45
-
rosalvo rosa Usuário NÃvel 3 
- Mensagens: 155
- Data de registro: 10 Jan 2006 18:21
- Cidade/Estado: Curitiba - PR
- Curtiu: 1 vez
- Mens.Curtidas: 1 vez
Re: de txt para pdf
por PAULO S » 09 Nov 2009 16:10
Que beleza, Rosalvo
Fico contente em saber que deu certo.
Qualquer coisa é só postar.
Valeu, abraços.
Fico contente em saber que deu certo.
Qualquer coisa é só postar.
Valeu, abraços.
Paulo
Clipper 5.2d/NTX -> xHarbour/CDX
Clipper 5.2d/NTX -> xHarbour/CDX
-
PAULO S Usuário NÃvel 3 - Mensagens: 174
- Data de registro: 24 Abr 2006 09:18
- Cidade/Estado: Santo Anastácio - SP
- Curtiu: 2 vezes
- Mens.Curtidas: 1 vez
de txt para pdf
por lugab » 13 Set 2018 14:40
Tópico nota 10, aprendà muito. Agradeço a todos por ele ( com 9 anos de atraso)
:))
Eu quero usar o código abaixo postado pelo Sygecom, porém........
eu gostaria de saber como faço pra controlar os nÃveis de compressão (COMP_NONE não funcionou) da seguinte forma:
1) quando o relatório possuir até 80 colunas... SEM COMPRESSAO (ou COM LETRAS MAIORES)
2) quando posssuir de 81 até 120 colunas ...... COMPRESSÃO MEDIA (ou COM LETRAS MEDIANAS)
3) quando possuir de 121 em diante ............ COMPRESSÃO TOTAL (ou COM LETRAS PEQUENS)
Eu já experimentei
Segue o código
Agradeço muito a quem puder me ajudar !!!
:))
Eu quero usar o código abaixo postado pelo Sygecom, porém........
eu gostaria de saber como faço pra controlar os nÃveis de compressão (COMP_NONE não funcionou) da seguinte forma:
1) quando o relatório possuir até 80 colunas... SEM COMPRESSAO (ou COM LETRAS MAIORES)
2) quando posssuir de 81 até 120 colunas ...... COMPRESSÃO MEDIA (ou COM LETRAS MEDIANAS)
3) quando possuir de 121 em diante ............ COMPRESSÃO TOTAL (ou COM LETRAS PEQUENS)
Eu já experimentei
Segue o código
*******************************
Function GERA_PDF(vARQ, vABRE )
*******************************
cText := memoread( vARQ )
nLines := mlcount( cText, 150 )
cFileToSave := cARQPDF
Private page, height, width, def_font, font
Private pdf := HPDF_New()
if pdf == NIL
Aviso("Erro HBPDF tentar gerar o Arquivo Pdf, Favor Tente novamente")
Return("")
endif
/* set compression mode */
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
*HPDF_SetCompressionMode( pdf, HPDF_COMP_NONE ) // não funcionou, continua condensando
*HPDF_SetPassword(pdf, "senha","leonardo" ) // colocar senha no PDF
page := HPDF_AddPage(pdf)
height := HPDF_Page_GetHeight(page)
width := HPDF_Page_GetWidth(page)
def_font := HPDF_GetFont( pdf, "Helvetica", NIL )
HPDF_Page_BeginText( page )
HPDF_Page_MoveTextPos( page, 10, height - 10 )
vCONT=0
for nA := 1 to nLines
cLinha := memoline( cText, 150, nA, 1, .F. )
font := HPDF_GetFont( pdf, "Courier" , NIL )
HPDF_Page_SetFontAndSize( page, def_font, 7 )
HPDF_Page_SetFontAndSize( page, font, 7 )
HPDF_Page_ShowText( page, cLinha )
HPDF_Page_MoveTextPos( page, 0, -10 )
vCONT=vCONT+1
IF vCONT=80
page := HPDF_AddPage(pdf)
HPDF_Page_SetLineWidth(page, 1)
HPDF_Page_BeginText( page )
HPDF_Page_MoveTextPos( page, 10, height - 10 )
vCONT = 0
ENDIF
next
HPDF_Page_EndText( page )
HPDF_SaveToFile( pdf, cFileToSave )
//HPDF_Free( pdf )
IF upper(vABRE)="S"
**Abre_arquivo( cFileToSave ) // aqui dependendo já mando abrir o arquivo
ENDIF
HPDF_Free( pdf )
Return
Agradeço muito a quem puder me ajudar !!!
lugab
-
lugab Colaborador 
- Mensagens: 843
- Data de registro: 19 Mai 2009 15:58
- Curtiu: 126 vezes
- Mens.Curtidas: 38 vezes
de txt para pdf
por lugab » 13 Set 2018 16:11
Bacana esse Mronaldo, HAzael, show de bola, obrigado. É algo pro futuro, pq eu ainda preciso estudar ele
No momento eu to com pressa e resolvi fazer umas gambiarras no trecho abaixo, aumentando o tamanho de 7 pra 10, qdo a largura da linha for <100, mas ainda não sei se vai funcionar.
Antes eu descobri isso na Intrnet, pena que não funciona
Obrigado
No momento eu to com pressa e resolvi fazer umas gambiarras no trecho abaixo, aumentando o tamanho de 7 pra 10, qdo a largura da linha for <100, mas ainda não sei se vai funcionar.
HPDF_Page_SetFontAndSize( page, def_font, 7 )
HPDF_Page_SetFontAndSize( page, font, 7 )
Antes eu descobri isso na Intrnet, pena que não funciona
HaruDoc::COMP_NONE - all contents is not compressed.
HaruDoc::COMP_TEXT - compress the text data.
HaruDoc::COMP_IMAGE - compress the image data.
HaruDoc::COMP_METADATA - compress other data (fonts, cmaps).
HaruDoc::COMP_ALL - compress all data.
Obrigado
lugab
-
lugab Colaborador - Mensagens: 843
- Data de registro: 19 Mai 2009 15:58
- Curtiu: 126 vezes
- Mens.Curtidas: 38 vezes
de txt para pdf
por JoséQuintas » 17 Set 2018 12:42
Tem a minha PDFClass.
Se serve de referência, O Pritpal Bedi usa no aplicativo dele nas nuvens, e também foi inclusa na minigui.
https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_pdfclass.prg
Se serve de referência, O Pritpal Bedi usa no aplicativo dele nas nuvens, e também foi inclusa na minigui.
https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_pdfclass.prg
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master 
- Mensagens: 18118
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
de txt para pdf
por Karollug » 21 Ago 2019 16:57
If you can provide to print a two dimensional array with various types of data, that will be much of help.
PRN file to PDF is really a handy utility.
PRN file to PDF is really a handy utility.
-
Karollug Usuário NÃvel 1 
- Mensagens: 5
- Data de registro: 15 Ago 2019 19:54
- Cidade/Estado: Pakistan
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 4 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!
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!
