這個是我圖的頁數 FChartTable.FieldByName('ChartPage').AsInteger; tqrchart是放在tqrsubdetail 我在 tqrsubdetail beforeprint事件要加何控制 Tqrchart.??:=??

Hi seedbcc,    1.建立一個全域變數 CurrentPage    2.QuickReport 的 BeforePrint 事件將 CurrentPage 歸零

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  CurrentPage := 0;
end;

3.在 QuickReport 的 OnNeedData 事件上

procedure TForm1.QuickRep2NeedData(Sender: TObject; var MoreData: Boolean);
begin
  Inc(CurrentPage);
  MoreData := (CurrentPage <= QRChart1.Chart.NumPages);
  if MoreData then
    begin
      QRChart1.Chart.Page := CurrentPage;
    end;
end;

4.預覽

procedure TForm1.Button3Click(Sender: TObject);
begin
  QuickRep2.Preview;
end;

發表人 -

------
Fishman