Solved

Printing 30 Jpg Images to a sheet of A4 paper.

Posted on 2004-04-09
5
439 Views
Last Modified: 2013-11-19
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
0
Comment
Question by:Asw
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10793832
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
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10793848
oh, almost forgot,

 frmImageRep.QuickRep1.Preview

OR

 frmImageRep.QuickRep1.Print


Shane
0
 
LVL 1

Author Comment

by:Asw
ID: 10794918
Hi,

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

Asw
0
 
LVL 11

Accepted Solution

by:
shaneholmes earned 250 total points
ID: 10794937
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
 
LVL 1

Author Comment

by:Asw
ID: 10803914
Hi ShaneHolmes,

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

Thanks
Andy
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
In this Micro Tutorial viewers will learn the basic shortcuts and functions in InDesign.
In addition to being a great web-based presentation tool, Prezi also makes it easy to save your presentation as a PDF to share with others as well. Learn how in this tutorial. Select the share icon from the top menu in your Prezi editor: Select "D…

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question