Board index » delphi » Bitmap Image Printing

gemadi...@aol.com (GE MADISON)

Delphi Developer
Thu, 12 Aug 1999 03:00:00 GMT

Bitmap Image Printing

I have never tried to print a bitmap image using Delphi.  From the online
manual, I found instructions using the following code:

Bitmap1:=TBitmap.Create;
Bitmap1.LoadFromFile('filename');
with Printer do
    begin  
    Printer.BeginDoc;
    Printer.Canvas.Draw(0,0,Bitmap1);
    Printer.EndDoc;
end;

I only get a blank page output without printing the bitmap image.  What am
I doing wrong?

Thanks

 
Randy Blackmon

Delphi Developer
Thu, 12 Aug 1999 03:00:00 GMT

Re:Bitmap Image Printing


Quote
GE MADISON wrote:

> I have never tried to print a bitmap image using Delphi.  From the online
> manual, I found instructions using the following code:

> Bitmap1:=TBitmap.Create;
> Bitmap1.LoadFromFile('filename');
> with Printer do
>     begin
>     Printer.BeginDoc;
>     Printer.Canvas.Draw(0,0,Bitmap1);
>     Printer.EndDoc;
> end;

Your 'with Printer do' is redundant.  You are using Printer.BeginDoc
inside the with block when you should just use BeginDoc.
Joe C. Hech

Delphi Developer
Sat, 14 Aug 1999 03:00:00 GMT

Re:Bitmap Image Printing


Quote
GE MADISON wrote:

> I have never tried to print a bitmap image using Delphi.  From the online
> manual, I found instructions using the following code:

> Bitmap1:=TBitmap.Create;
> Bitmap1.LoadFromFile('filename');
> with Printer do
>     begin
>     Printer.BeginDoc;
>     Printer.Canvas.Draw(0,0,Bitmap1);
>     Printer.EndDoc;
> end;

> I only get a blank page output without printing the bitmap image.  What am
> I doing wrong?

> Thanks

You will need to get the image bits in Device Independet format using
the GetDiBits fucntion, then use the StretchDiBits function to transfer
the bits to the printer's canvas dc. There is a TI at our web site
that discusses doing this with a form. THis code could be adapted to
use with an image:

     TI3155 - A Better Way To Print a Form

--
Joe C. Hecht
Borland Delphi Developer Support Group
http://www.borland.com

Jean-Luc Matte

Delphi Developer
Sat, 14 Aug 1999 03:00:00 GMT

Re:Bitmap Image Printing


Hello,

Printer resolution is more important than screen so your btmap is very
small
try to use the StretchDraw function, it should work fine :-)
--
Jean-Luc Mattei
jl...@club-internet.fr

GE MADISON <gemadi...@aol.com> wrote in article
<19970223202001.PAA03...@ladder02.news.aol.com>...

Quote
> I have never tried to print a bitmap image using Delphi.  From the online
> manual, I found instructions using the following code:

> Bitmap1:=TBitmap.Create;
> Bitmap1.LoadFromFile('filename');
> with Printer do
>     begin  
>     Printer.BeginDoc;
>     Printer.Canvas.Draw(0,0,Bitmap1);
>     Printer.EndDoc;
> end;

> I only get a blank page output without printing the bitmap image.  What
am
> I doing wrong?

> Thanks

Other Threads

1. Newbie- Why is Quality of Bitmap image print to Laser poor?

2. Placing a small bitmap image inside a bigger bitmap image

3. Printing of Bitmap image ?

4. Fast printing bitmap images.

5. Printing of bitmap images in Windows98

6. Printing a bitmap image w/Canvas?

7. How to print bitmap images?

8. Device independent bitmap + printing of a bitmap

9. Print Setup and printing a bitmap

10. Indy html email with inline image - image not printing