題目說的可能不是很清楚。實際是有這樣一種需要：在為用戶做準備列印時給用戶一個可以回應的介面，既用戶可以中止列印，因為往往會有很多頁，而用戶不需要。但如果用戶不作回，那麼它就一直準備下去。。。。怎樣做好呢？請教請教。

在form裡適當的位置擺個Bitbtn之類的按鈕,按鈕的程序是將某一全域變數設定成另一個值.例印程式在適當時間去檢查這個全域變數以決定是否列印繼續列印.關鍵在於要在列印的迴圈裡增加一行Application.Process,這會讓程式的畫面更新,作業系統會要求程式處理user在畫面上的動作.

 
var
  bStopPrint:Boolean; //全域變數
//BitBtn的程序
procedure form1.BitBtnOnClick(sender:TObject);
begin
  bStopPrint:=True;
end;
//列印的程式
procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Application.process;
end;
procedure TQuickReport2.QuickRepAfterPrint(Sender: TObject);
begin
  Application.process;
  if bStopPrint then
    Self.close;
end;    

引言: 在form裡適當的位置擺個Bitbtn之類的按鈕,按鈕的程序是將某一全域變數設定成另一個值.例印程式在適當時間去檢查這個全域變數以決定是否列印繼續列印.關鍵在於要在列印的迴圈裡增加一行Application.Process,這會讓程式的畫面更新,作業系統會要求程式處理user在畫面上的動作.

 
var
  bStopPrint:Boolean; //全域變數
//BitBtn的程序
procedure form1.BitBtnOnClick(sender:TObject);
begin
  bStopPrint:=True;
end;
//列印的程式
procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Application.process;
end;
procedure TQuickReport2.QuickRepAfterPrint(Sender: TObject);
begin
  Application.process;
  if bStopPrint then
    Self.close;
end;    

謝謝大大的解答。可是我用的是兩個表單，一個表單中的某一按鍵實現另一報表表單的預覽功能。因此用application.process好象不行啊。而且在QReport的表單中並不認process方法，只認processmessages.是否需要加其他的unit 呢?

引言:

引言: 在form裡適當的位置擺個Bitbtn之類的按鈕,按鈕的程序是將某一全域變數設定成另一個值.例印程式在適當時間去檢查這個全域變數以決定是否列印繼續列印.關鍵在於要在列印的迴圈裡增加一行Application.Process,這會讓程式的畫面更新,作業系統會要求程式處理user在畫面上的動作.

 
var
  bStopPrint:Boolean; //全域變數
//BitBtn的程序
procedure form1.BitBtnOnClick(sender:TObject);
begin
  bStopPrint:=True;
end;
//列印的程式
procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Application.process;
end;
procedure TQuickReport2.QuickRepAfterPrint(Sender: TObject);
begin
  Application.process;
  if bStopPrint then
    Self.close;
end;    

謝謝大大的解答。可是我用的是兩個表單，一個表單中的某一按鍵實現另一報表表單的預覽功能。因此用application.process好象不行啊。而且在QReport的表單中並不認process方法，只認processmessages.是否需要加其他的unit 呢?

< face="Verdana, Arial, Helvetica"> 你要不要把你的程式碼放上來,這樣可能會比較快幫你找到答案