Print Screen using Quick Reports

Print Screen using Quick Reports

var
    R:Trect;
begin
   // Capture screen to an Image
   r.left:=1;
   r.top:=1;
   r.right:=screen.width;
   r.Bottom:=screen.height;
   image1.canvas.CopyRect(r,detailsform.canvas,r);
   // Copy image to Report
   ScrnReport.qrimage1.Canvas.copyrect(r,detailsform.canvas,r);
   // Run Report
   ScrnReport.Preview;

end;