VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, 5, 6, 7, 8, [9], 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 17:38:52 08/10/00 Thu
Author: Michel
Subject: Re: Printing Headers/Footers
In reply to: Bob Villiers 's message, "Printing Headers/Footers" on 16:21:59 08/10/00 Thu



Hi Bob,

You can print text on a page by using the Printer.Canvas object. For example,
this is taken from the latest DemoForm.Pas example file:

{ if UsePrintJob is False, Printer.BeginDoc and Printer.EndDoc must be called by the user. This allows
printing multiple images in the same job (or page). }

GraphicPrinter.UsePrintJob := False;

{ if UsePrintJob is False, the print job name that appears
in the print manager must be specified in using the Title
property of the Printer object. Otherwise, if UsePrintJob is
True, the Title property of the TDibGraphicPrinter object is
used to specify the job name. }
Printer.Title := 'Envision Demo';

Printer.BeginDoc;

GraphicPrinter.Print(ImageScrollBox.Graphic);

{ this shows how to print text on a page.}
Printer.Canvas.TextOut(10,10, 'Envision Image Library');

Printer.EndDoc;

Canvas.TextOut prints text directly on the printer. You may need to use GetPrinterMetrics
if you want to position the text at a precise position on the page.

Best regards,

Michel

> I have been asked to provide a title, preferably as a
> header or footer, to a printed image. I would be
> grateful for some guidance.
>
> TIA,
>
> Bob

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.