Paul
yes, the code would be useful, please forward to me.
Thanks
Leo
"Marshall, Paul" wrote:
> You can PaintTo into a TBitmap, and the StretchDraw the bitmap onto the
> Printer Canvas.
> This works for some printers.
> But the robust solution is to copy the bitmap into a Device Independent
> bitmap (with GetDIB) and use StretchDIBits.
> (I have some code for this if it's any help).
>
> Regards, Paul Marshall.
>
> > -----Original Message-----
> > From: Leo Ramakers [SMTP:[EMAIL PROTECTED]]
> > Sent: Friday, January 07, 2000 10:17 AM
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: scaling a print
> >
> > hi folks
> > I am trying to print the displayed content a pagecontrol, and have
> > succeeded in getting print using the following code;
> > if PrintDialog1.Execute then
> > begin
> > ......
> > with Printer do
> > begin
> > BeginDoc;
> > for I := Start to Stop do
> > begin
> > PageControl.Pages[I].PaintTo(Handle, 10, 10);
> > if I <> Stop then
> > NewPage;
> > end;
> > EndDoc;
> > end;
> >
> > end;
> >
> > The problem is, I cant see how to scale the print to fit the page. I have
> > the same problem if I try
> >
> > Mainform.Print
> >
> > Can anyone offer solution or tips?
> >
> > best regards
> > Leo Ramakers
> >
> > --------------------------------------------------------------------------
> > -
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> ---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
