qrsd_Chart:TQRSubDetail;
    QRImage1: TQRImage;
  private
         FU_DrawChart:TCustomChart;    第一段 由前一form傳來參數做接收
procedure TRpt_PChart.ProcessArgs(const Args: array of Variant);
begin
  FFileDataTable:=TkbmMemTable(Integer(Args[0]));
  FReasonTable:=TkbmMemTable(Integer(Args[1]));
  FCtrlItemTable:=TkbmMemTable(Integer(Args[2]));
  FChartTable:=TkbmMemTable(Integer(Args[3]));
  FU_DrawChart:=TCustomChart(Integer(Args[4]));
...
...
  chart_U_ControlChart.Enabled := False;
  QRDBChart1.Enabled := False;
...
...
end;    procedure TRpt_PChart.qrsd_ChartBeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
 var PIC : TBitMap;
begin
  inherited;
  if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then
  begin
    FU_DrawChart.Page:=FChartTable.FieldByName('ChartPage').AsInteger;
    chart_U_ControlChart.Chart.Page:=FChartTable.FieldByName('ChartPage').AsInteger;
    Int_Page:=Int_Page+1;
    FU_DrawChart.Width:=700;
    Pic := FU_DrawChart.TeeCreateBitmap(clWhite,FU_DrawChart.ClientRect);
    try
        QRImage1.Picture.Bitmap.Assign(PIC);
        QRImage1.Width:=700;
        QRImage1.Height:=400;
    finally
        PIC.Free;
    end;      end;    end;