各位： 你們好! 請問如何去實現，列印已顯示的Chart圖形，我是用的QUERY方式的圖形，謝謝! 向你學習!

Hi suntao008,    之前寫了一個 DBChart 供 User 查詢，後來 User要求須可列印，而我又懶得於 QRChart 上再重新設定一次 Series，於是就用了偷懶的方式 先於 QuickReport 上放一個 QRchart 再 QRChart 上新增與 DBChart 上相同數量之 Serise 然後 .....

procedure TQueryForm.ButtonPreview1Click(Sender: TObject);
VAR
    I : Word;
begin
    FOR I := 0 TO DBChart1.SeriesList.Count - 1 DO
        BEGIN
            QRChart1.Chart.SeriesList.Series[I].Assign(DBChart1.SeriesList.Series[I]);
        END;
    QRChart1.Chart.Title.Assign(DBChart1.Title);
    QRChart1.Chart.TopAxis.Assign(DBChart1.TopAxis);
    QRChart1.Chart.BottomAxis.Assign(DBChart1.BottomAxis);
    QRChart1.Chart.LeftAxis.Assign(DBChart1.LeftAxis);
    QRChart1.Chart.RightAxis.Assign(DBChart1.RightAxis);
    QRChart1.Chart.DepthAxis.Assign(DBChart1.DepthAxis);
    QRChart1.Chart.MarginTop := DBChart1.MarginTop;
    QRChart1.Chart.MarginBottom := DBChart1.MarginBottom;
    QRChart1.Chart.MarginLeft := DBChart1.MarginLeft;
    QRChart1.Chart.MarginRight := DBChart1.MarginRight;
    QuickRep1.Prepare;
    QuickRep1.Preview;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

如果只是要印Chart而已 可用 dbchart1.Print;    

引言: 各位： 你們好! 請問如何去實現，列印已顯示的Chart圖形，我是用的QUERY方式的圖形，謝謝! 向你學習!

~悠遊法國號~

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.