How to enhance image-quality => oPrinter:SayImage ?

How to enhance image-quality => oPrinter:SayImage ?

Postby ukoenig » Mon May 19, 2014 6:12 pm

Hello,

is it possible, to get a better image-quality using oPrinter:SayImage

I added a print-solution and noticed a bad image-quality.

The image on screen ( JPG 1500 x 2300 )

Image

The image on print-preview
the size is calculated to fill a DIN A4
oPrinter:SayImage( 260, 150, oDrawImg, nImgWidth * 0.83, nImgHeight * 0.83 )

Image
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby Massimo Linossi » Fri Apr 29, 2016 7:06 am

Hello Uwe.
Did you find a solution for this problem ?
Thanks a lot.
User avatar
Massimo Linossi
 
Posts: 498
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby mastintin » Sun May 01, 2016 7:07 am

¿ if you use oprn:saybitmap() ?
Regards.
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby Massimo Linossi » Sun May 01, 2016 7:15 am

Hi.
I have a JPG file, so I must use the sayimage method.
The strange thing is that if I print directly there is no problem.
That blurry effect appears only in the preview window.

I made just now a test. I've opened the file in the temp directory, where windows places
the EMF files. The file is correct, with no problem at all.
Maybe that effect is made by the EMF viewer in the preview window.
User avatar
Massimo Linossi
 
Posts: 498
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby nageswaragunupudi » Mon May 02, 2016 2:37 am

Please try using oPrn:PrintImage(...)
Code: Select all  Expand view
function PrnImage()

   local oPrn

   local nRow     := 500
   local nCol     := 500
   local nWidth   := 352 * 5
   local nHeight  := 450 * 5
   local lStretch := .t.

   PRINT oPrn PREVIEW
   PAGE
      oPrn:PrintImage( nRow, nCol, "c:\fwh\bitmaps\olga1.jpg", nWidth, nHeight, lStretch )
   ENDPAGE
   ENDPRINT

return nil
 


Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby nageswaragunupudi » Mon May 02, 2016 4:01 am

Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: How to enhance image-quality => oPrinter:SayImage ?

Postby Massimo Linossi » Mon May 02, 2016 7:00 am

Hi.
Sorry, I'm not using the last versions of FWH :(
User avatar
Massimo Linossi
 
Posts: 498
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 73 guests