Article #17976: Printing Delphi controls using QuickReports

 Question and Answer Database
FAQ2976D.txt — Printing Delphi controls using QuickReports
Category :Quick Reports
Platform :All-32Bit
Product :
Question:
Can I print any standard Delphi control using QR?
Answer:
No, a control has to be descending from TQRPrintable to
be printed on a QuickReport.
However, if you want, you can drop a TQRImage on a
QuickReport and then do something like this:
procedure TForm1.Button1Click(Sender: TObject);
var
DC : HDC;
begin
DC := GetDC(Button1.Handle);
BitBlt(QuickReport2.QRImage1.Canvas.Handle,0,0,
Button1.Width,Button1.Height,DC,0,0,SrcCopy);
ReleaseDC(Button1.Handle,DC);
QuickReport2.Preview;
end;
4/2/99 12:18:28 PM

Last Modified: 01-SEP-99