請問各位先進，小弟現在想利用報表將兩個QuickRep一起列印出來，是否有什麼方法可以將QuickRep2加在QuickRep1後面並一起列印出來？

procedure TFINV840.SpeedButton6Click(Sender: TObject);// INV841R (QuickRep1)
begin
IF Query1.IsEmpty Then
Begin
ShowMessage('未設定資料，請先挑選資料再列印!!');
Exit;
End;
Try
IF Application.FindComponent('FINV841R')= nil Then
begin
Application.CreateForm(TFINV841R, FINV841R);
End;
FINV841R.dDMount:=0;
FINV841R.dYPMount:=0;
if cmb_item.Text='廠商' then
FINV841R.QRLabel1.Caption:='應付帳款明細表-' cmb_item.Text
else
FINV841R.QRLabel1.caption:='應付費用明細表-' cmb_item.Text;
FINV841R.QuickRep1.Preview;//(QuickRep1)
if FINV841R.afterPr='P' then//97.1.15
begin
SpeedButton9.Click;// QuickRep2
end;
Finally
FINV841R.Free;
End;
end;
procedure TFINV840.SpeedButton9Click(Sender: TObject);// INV842R 按到期日 (QuickRep2)
begin
Try
IF Application.FindComponent('FINV842R')= nil Then
begin
Application.CreateForm(TFINV842R, FINV842R);
End;
FINV842R.QuickRep1.Print; //Preview 97.1.15
Finally
FINV842R.Free;
End;
end;
==============================================================
在 INV841R.pas 設定
type
TFINV841R = class(TForm)
QuickRep1: TQuickRep;
. . .
private
{ Private declarations }
public
{ Public declarations }
afterPr:char;
dDMount:Double;
dYPMount:Double;
end;

procedure TFINV841R.FormCreate(Sender: TObject);
begin
afterPr:=' ';
end;
procedure TFINV841R.QuickRep1AfterPrint(Sender: TObject);
begin
afterPr:='P'
end;
^_^
===================引 用 homeboy 文 章===================
請問各位先進，小弟現在想利用報表將兩個QuickRep一起列印出來，是否有什麼方法可以將QuickRep2加在QuickRep1後面並一起列印出來？

------
What do we live for if not to make life less difficult for each other?

感謝christie的回覆，經您的範例測試結果是可以將QuickRep2接續再QuickRep1後面列印出來，那假設如果我是要將QuickRep2接續在QuickRep1後面再一起預覽列印顯示出來，不知有什麼方法可行呢？我有測試將QuickRep1和QuickRep2一起預覽列印顯示出來，但是結果是先預覽列印QuickRep1之後關閉再出現QuickRep2，有什麼方法可以將QuickRep1和QuickRep2結合之後一起預覽列印出來呢？

search the "QRCompositeReport"

感謝junlin回覆，QRCompositeReport的確可以將兩個quickrep合併再一起，謝謝。