Lazreport auf Canvas rendern

[Christian]

hat das schonmal jemand gemacht ?
Würd gern Thumbnails von den Reports erzeugen.

[Christian]

Hab mich nochmal 10 min dran gesetzt falls das mal jemand braucht

Code: Alles auswählen

 
 
  if frReport1.PrepareReport then
    begin
      aPage := frReport1.EMFPages.Pages[0];
      aPage^.Visible:=True;
      frReport1.EMFPages.Draw(0,Image1.Picture.Bitmap.Canvas,Rect(0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Width));
 
    end;