create a pdf

[Silvio.Falconi]

I want to print the contents of a window in a pdf

how should i do?

[nageswaragunupudi]

Code: Select all  Expand view  RUN

function WndToPdf( oWnd, cPdf )

   local cJpg  := cFileSetExt( cPdf, "jpg" )
   local oPrn

   oWnd:SaveAsImage( cJpg, 100 )

   PRINT oPrn PREVIEW FILE cPdf
   PAGE
   @ 1,1 PRINT TO oPrn IMAGE cJpg
   ENDPAGE
   ENDPRINT

return nil
 

[Silvio.Falconi]

Code: Select all  Expand view  RUN

function WndToPdf( oWnd, cPdf )

   local cJpg  := cFileSetExt( cPdf, "jpg" )
   local oPrn

   oWnd:SaveAsImage( cJpg, 100 )

   PRINT oPrn PREVIEW FILE cPdf
   PAGE
   @ 1,1 PRINT TO oPrn IMAGE cJpg
   ENDPAGE
   ENDPRINT

return nil
 

Nages,


Now I made a test WndToPdf( oApp():oSpiaggia, "test.pdf" )

and I have a pdf with the image is blurred that is not clear



any solution ?

[nageswaragunupudi]

The function must have saved test.jpg before creating test.pdf. Check the quality of test.jpg

[Silvio.Falconi]

The function must have saved test.jpg before creating test.pdf. Check the quality of test.jpg

good quality I sent you now

[Silvio.Falconi]

Nages,
the function give me a white page pdf today!!!! ( while test.jpg is created)

[Silvio.Falconi]

Nages,
the function create a jpg but when it create a pdf insert a blurred image in the pdf sheet

Code: Select all  Expand view  RUN

function WndToPdf( oWnd, cPdf )

   local cJpg  := cFileSetExt( cPdf, "jpg" )
   local oPrn

   oWnd:SaveAsImage( cJpg, 100 )

   PRINT oPrn PREVIEW FILE cPdf
   PAGE
   @ 1,1 PRINT TO oPrn IMAGE cJpg
   ENDPAGE
   ENDPRINT

return nil

the image created


the image on pdf

How I can resolve it ?

[AntoninoP]

On Fivewin there is a function FWJPGTOPDF that write basic PDF with the jpg, can you try

Code: Select all  Expand view  RUN

procedure WndToPdf( oWnd, cPdf )

   local cJpg  := cFileSetExt( cPdf, "jpg" )
   local oPrn

   oWnd:SaveAsImage( cJpg, 100 )

   FwJpgToPdf(cJpg, cPdf)

return

edit: it comes stretched.

[nageswaragunupudi]

Code: Select all  Expand view  RUN

FwJpgToPdf(cJpg, cPdf)

I did not propose this because of the problems in resizing the image.
This works well if the proportions of the image fit into the paper size.

[AntoninoP]

I see, the problem is that calls PGJPEG1 with the size of the page, instead of with the size of image... it is should be quick fix... maybe with the new lib haru interface, is possible create a pdf without change the quality of jpg

[nageswaragunupudi]

I see, the problem is that calls PGJPEG1 with the size of the page, instead of with the size of image... it is should be quick fix... maybe with the new lib haru interface, is possible create a pdf without change the quality of jpg

The proposed function, if used with haru, will produce better results.

Add this at the beginning the program

Code: Select all  Expand view  RUN

REQUEST FWHARU
 

and anywhere in the program

Code: Select all  Expand view  RUN

TPrinter():lUseHaruPDF := .t.
 

With these two changes, the same function I posted will give better results.