Solved

Printing 30 Jpg Images to a sheet of A4 paper.

Posted on 2004-04-09
5
416 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
  • 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

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

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 my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Learn how to download your full Prezi presentation for offline presenting. Prezi doesn’t have to be viewed and shared in a web browser, even with a free account you can download your full presentation to share with others. Be sure to download any vi…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…

831 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