Problem with this is... The output is now blocky and unreadable...
Oh, well...
Dave.
----- Original Message -----
From: Alan Rose <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Wednesday, March 07, 2001 1:45 PM
Subject: RE: [DUG]: TForm.Print
> Fill the page you say.
> Then replace line
> Canvas.Draw((PageWidth - Bmp.Width) div 2,
> (PageHeight - Bmp.Height) div 2, Bmp);
> with
> Canvas.StretchDraw(Printer.Canvas.cliprect,bmp);
>
> The point here is once you have the image in a bitmap the power is with
you
> to print the image in any size you like. Dont forget the printer object
> canvas supplies you with it dimensions.
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of David O'Brien
> Sent: Wednesday, March 07, 2001 11:55 AM
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TForm.Print
>
>
> Almost works, but prints a 2cm square form in the middle of the page.
Really
> needs to fill the page.
>
> Cheers,
> Dave.
>
> -----Original Message-----
> From: Alan Rose [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, 6 March 2001 10:14
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TForm.Print
>
>
> Try this rountine. Just assign FormHandle to whatever form you are
printing.
>
> uses printers;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> FormHandle: THandle;
> wDC: HDC;
> SrcRect: TRect;
> Bmp: TBitmap;
> begin
> Bmp := TBitmap.Create;
> with Bmp do
> try
> FormHandle := Self.Handle;
> SetForegroundWindow(FormHandle);
> RedrawWindow(FormHandle, nil, 0, RDW_INVALIDATE+RDW_UPDATENOW);
> GetWindowRect(FormHandle, SrcRect);
> Width := SrcRect.Right-SrcRect.Left;
> Height := SrcRect.Bottom-SrcRect.Top;
> wDC := GetWindowDC(FormHandle);
> BitBlt(Canvas.Handle, 0, 0, Width, Height, wDC, 0, 0, SRCCOPY);
> with Printer do
> begin
> BeginDoc;
> Canvas.Draw((PageWidth - Bmp.Width) div 2,
> (PageHeight - Bmp.Height) div 2, Bmp);
> EndDoc;
> end;
> finally
> Bmp.Free;
> end;
>
> end;
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of David O'Brien
> Sent: Tuesday, March 06, 2001 9:13 AM
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TForm.Print
>
>
> Problem is, it is failing on all printers (lasers, plotters and inkjets),
at
> least one that has 80M of ram, and we use for GIS work, i.e very large
> graphics.
>
> Any ideas what to try to solve this?
> Any other automated way to print the current form?
>
> Dave.
>
> -----Original Message-----
> From: Steve Peacocke [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, 1 March 2001 17:10
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: TForm.Print
>
>
> At 09:44 am 1/03/01 +1300, David O'Brien said:
> >Does anyone know why the TForm.Print function prints blank pages when the
> >form width is over a certain size, or how to get around the problem?
Using
> >D5.
>
> One possability is that the form graphic is too much for the memory in the
> printer. This may be a printer problem rather than a Delphi problem.
>
> Steve
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
