de txt para pdf

[rosalvo rosa]

Valeu Paulo!

Agora fechou.

Um abraço.

Rosalvo

[PAULO S]

Que beleza, Rosalvo
Fico contente em saber que deu certo.
Qualquer coisa é só postar.
Valeu, abraços.

[lugab]

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

Código: Selecionar todos

*******************************
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]

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.

Código: Selecionar todos

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

[JoséQuintas]

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/JoseQuin ... fclass.prg

[Karollug]

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.