請問在列印大量資料時列印到約4000頁時，出現"控制碼無效"， 是因為記憶體不足嗎？因為頁碼問題無法分開列印 請問應如何解決？ 謝謝

您好： 您可在預覽時，可將report存成XXX.QRP的檔案， 然後將程式關閉，再開啟預覽畫面，再將剛剛存的檔案打開來列印 應該就不會了 ~~應無所住而生其心~~

引言: 您好： 您可在預覽時，可將report存成XXX.QRP的檔案， 然後將程式關閉，再開啟預覽畫面，再將剛剛存的檔案打開來列印 應該就不會了 ~~應無所住而生其心~~

你好： 其在預覽時，跑到4000頁之筆數，就會發生了 謝謝

引言:

引言: 您好： 您可在預覽時，可將report存成XXX.QRP的檔案， 然後將程式關閉，再開啟預覽畫面，再將剛剛存的檔案打開來列印 應該就不會了 ~~應無所住而生其心~~

你好： 其在預覽時，跑到4000頁之筆數，就會發生了 謝謝

有無可能直接列印，而不經過先讀取所有資料在列印之程序？謝謝

您好： 列印前先做下列動作試試看 Report.QRPrinter.Save(FileName); Report.QRPrinter.Load(FileName); ~~應無所住而生其心~~

Hi:    若因記憶體問題，導致 QuickReport 無法順利產生，可以分開列印 頁碼可以使用全域變數的問題來解決，來做到連號功能

// 進行報表預覽
procedure TForm1.Button8Click(Sender: TObject);
begin
    TotalPage := 0;
    QRY_CUSTOMERS.Close;
    QRY_CUSTOMERS.Open;
    QuickRep1.Preview;
    QRY_CUSTOMERS.Close;
    QRY_CUSTOMERS.Open;
    QuickRep1.Preview;
end;    // 每產生一頁時去累加 TotalPage
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
    Inc(TotalPage);
end;    // 將 Lebale 值，以 TotalPage 替代
procedure TForm1.QRLabelPagePrint(sender: TObject; var Value: String);
begin
    Value := IntToStr(TotalPage);
end;

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

------
Fishman