Печать диаграммы, построенной в Delphi

       Если вы уже построили диаграмму в коде Delphi и хотите ее распечатать в отчете, вам понадобится объект "Рисунок". Расположите его в нужном месте отчета и напишите следующий обработчик события TfrxReport.OnBeforePrint:

 

procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);

begin

if Sender.Name = 'Picture1' then

   TfrxPictureView(Sender).Picture.Assign(

     Chart1.TeeCreateMetafile(False,

       Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));

end;

 

где Picture1 – имя объекта "Рисунок", Chart1 – ваша делфийская диаграмма.