Printing 30 Jpg Images to a sheet of A4 paper.

Hi,

I have 30 Jpeg inages in a folder, I need to print all the images to a A4 sheet of paper(Like Thumbnails) keeping aspect ratio.

How can I do this?

Thanks
Asw
LVL 1
AswAsked:
Who is Participating?
 
shaneholmesConnect With a Mentor Commented:
The "Slide Show" Tech Note shows how to print a matrix of images from
a directory of images.  Look for "Printing Matrix of Imges" at
http://www.efg2.com/Lab/ImageProcessing/SlideShow.htm
The online example shows a printout of faces, 20 per row and
10 rows per page = 200 images per printed page.

BMP, JPG, ICO, WMF and EMF formats are directly supported.

If you download Anders Melander's TGIFImage, set a
conditional compilation variable, and recompile, GIFs can
also be supported.

http://www.efg2.com/Lab/ImageProcessing/SlideShow.htm

http://www.efg2.com/Lab/ImageProcessing/SlideShow.htm#PrintMatrix

Shane
0
 
shaneholmesCommented:
Have you looked at any of the Reporting Components (in particular - QuickReports).

Quick Reports, default size = A4, and they have a QRImage & QRDBImage components.

You can download QuickReports for free at:

QuSoft.com or QuSoft.No

Anyone who is trying to get the most out of Quick Reports and/or printing in general should take advantage of these resources:

1. The QR samples found in the Demos subdirectory of Delphi.

2. The manual and other tutorials which are in the Downloads section of QuSoft.com or QuSoft.No web sites.

There are also, many examples & articles to be found on the net if you utilize google groups for your searches:

Example:

http://delphi.about.com/library/bluc/text/uc051701a.htm


However, It shouldn't be too difficult to do what you want.

Create new form, call it frmImageRep

Drop a TQuickRep component on a form,

Set its Left & Top properties = 0

Page.PaperSize = A4

Drop some TQRImages on your TQuickRep component, and align them as desired.

You will need to add the JPEG unit to your uses clause.

Then come up with a scheme to set th picture property (same as STandard TImage) with your files
(Using LoadFrom FIle most Likely)

Shane
0
 
shaneholmesCommented:
oh, almost forgot,

 frmImageRep.QuickRep1.Preview

OR

 frmImageRep.QuickRep1.Print


Shane
0
 
AswAuthor Commented:
Hi,

I don't want to use Quick Reports, but thanks

Asw
0
 
AswAuthor Commented:
Hi ShaneHolmes,

I am looking for a simple procedure to load the images and print.

Thanks
Andy
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.