?
Solved

Printing 30 Jpg Images to a sheet of A4 paper.

Posted on 2004-04-09
5
Medium Priority
?
454 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 750 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

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…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In this second Micro Tutorial in the series,  viewers will learn more basic shortcuts and functions of Illustrator. In this tutorial you will learn about the eyedropper tool, zoom , ellipses and more.
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…
Suggested Courses
Course of the Month8 days, 23 hours left to enroll

621 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