Solved

Printing 30 Jpg Images to a sheet of A4 paper.

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

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone 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

Suggested Solutions

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Add visuals to your Prezi to keep your audience engaged. Learn how to embed images, edit them, and more in this video micro tutorial. Select "Insert" from the top menu in your Prezi editor: Select "Image": A toolbar will pop in from the right …
Learn the basics of inputting and editing your text components in Prezi. We will cover how to set styles, position, and group your text components. In your Prezi editor, click anywhere on the canvas to add text: A flashing cursor informs you that yo…

828 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