unit URpt_Chart;
..
type
  TRpt_Chart = class(TRpt_QRReportBase)
..
    chart_U_ControlChart: TQRChart;      private
    { Private declarations }
...
    FU_DrawChart:TCustomChart;
..
  public
    procedure ProcessArgs(const Args:array of Variant);override;
...
procedure TRpt_Chart.ProcessArgs(const Args: array of Variant);
begin
  Int_Page:=1;
  FU_DrawChart:=TCustomChart(Integer(Args[4]));
  if Assigned(FU_DrawChart) then
  begin
    chart_U_ControlChart.SetChart(FU_DrawChart);
  end;
end;    procedure TRpt_PhChart.qrsd_ChartBeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then
  begin
    chart_U_ControlChart.Chart.Page:=FChartTable.FieldByName
    Int_Page:=Int_Page 1;
  end;

procedure TFrm_Chart.Btn_PrintClick(Sender: TObject);
begin
  inherited;
   Frm_Main.CallOutReport(Self,
                         IntToStr(FPlugMenuItem.ItemID),
                         FFileName,
                         [Integer(mt_filedata),
                          Integer(mt_EmailAlarm_log),
                          Integer(mt_filedata),
                          Integer(mt_ChartData),
                          Integer(Chart_Up),
                          Integer(Chart_Down),
                          Integer(mt_UniMeasure),
                          tmpdt_DateStart,
                          tmpdt_DateEnd]);
  end

procedure TRpt_PhChart.qrsd_ChartBeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then
  begin
    chart_U_ControlChart.Chart.Page:=Int_Page;
    Int_Page:=Int_Page 1;
  end;