help with image

[earlrainer]

Hi Guys,

i want to print an image(bmp) on printer.

i want to print a logo and at the side of the logo my name and address.

how can this be done...can the image and the text be printed side by side(i.e on same rows)
or will i have to print the image first and then go to next row and print text

bye

 

[PascalKlaus]

Use Quickreport

Place a Quickreport on a form (or "New" / Quickreport).
Place a QRImage on the Quickreport. Select your picture in the picture property. Place a QRLabel whereever you want. Select font, style and size. Preview and Print the Report or at runtime call:

Quickreport1.Print;
{Quickreport1 must be the name of your Quickreport}

 

[sggaunt]

Excellent Tip. but,
I tried this here with D3 and it worked fine,
But when I got back to my home office and tried it with D4 It dosent seem to work.
I get nothing at all on the preview sceen which shows page 1 of 0
attempting to print does nothings but flash up the dialog for a second.
Are there some default settings changed in the D4 version?
or Is my Qreport component damanged in some way.
I loaded the Demo project and that worked Fine???
Steve.

 

[PascalKlaus]

If you have Quickreport 3, you generally need a Detailband. On the Quickreport set the Property "Bands"/Detailband to true and it will work.

 

[Ronin441]

The page you are printing on has a Canvas property. You can draw on this:

if not PrintDialog1.Execute then Exit;
with Printer do begin
    BeginDoc;
    Title := 'My letterhead';
    Canvas.Brush.Color := clWhite;
    Canvas.FillRect(Rect(left,top, right,bottom));  // Clear the form.  Not necessary, as the page is white already, but hey; it's only an example.
    Canvas.Font.Size := 14;
    Canvas.TextOut(10, 10, 'Hello world!');
    EndDoc;
end;

You can use all the methods of TCanvas, and you don't have to care whether you're drawing on a window, or a printer page, or whatever. Of course, as other posters have pointed out, if you're creating a report, you'd be better off using a reporting tool. -- Doug Burbidge mailto:dougburbidge@yahoo.com

http://home.iprimus.com.au/dougburbidge/