各位前輩:
小弟用ppReport元件列印,列印1次是沒問題,但若列印2次(含)以上就會出現"記憶體不能為"read"的問題.
最後發現是ppReport中的" printer "或 " PrintReport " 指令出現的,因為若拿掉此指令,其他都不會有問題,任何一台列表機都一樣.
後來加入"sleep(5000)",也無效.
奇怪的是,若列印時加入" showmessage() "的指令則不會出現"記憶體"的錯誤訊息.
小弟的程式如下:
with ppReport1 do begin
PrinterSetup.PrinterName := '\\192.168.1.119\WP-T800s Ver.2.6';
ShowPrintDialog := False;
ModalPreview := False;
DeviceType := 'Printer'; // 報表列印
for i:= 1 to 2 do begin
PrintReport;
//ShowMessage(inttostr(i));
// Sleep(5000);
// Printer;
end;
end;

謝謝各位前輩.

已解決了.
只要在printer的下一行加入"application.ProcessMessages;"將程式的主導權交回給系統就可以了.
修改後的程式如下:
for i:= 1 to 2 do begin
PrintReport;
application.ProcessMessages;
end;

編輯記錄