Original image size when re-printing

[reinaldocrespo]

I store scanned images to a memo field (.fpt). The original images might be 3 x 2 or 8 x 11 or any other size. Whenever I need to print the image here is what I do:

Code: Select all  Expand view  RUN

   nWidth   := int( oPrn:nhorzres() / oImage:nwidth() )
   nHeight   := int( oPrn:nvertres() / oImage:nheight() )
   nTotal   := min( nWidth, nheight )
   oPrn:sayimage( 2, 2, oImage, oImage:nwidth * ntotal, oImage:nheight * ntotal )


The problem is that if the original image was only 2 x 3 inches, it will print much bigger to occupy the whole page or at least its width.

Is there any way to print a stored image to the same exact size it was when originally scanned? Has anyone come up with a solution?


Reinaldo