線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1708
推到 Plurk!
推到 Facebook!

如何讓兩個QuickRep合併列印?

答題得分者是:junlin
homeboy
一般會員


發表:11
回覆:11
積分:4
註冊:2007-11-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-01-15 10:59:14 IP:140.130.xxx.xxx 訂閱
請問各位先進,小弟現在想利用報表將兩個QuickRep一起列印出來,是否有什麼方法可以將QuickRep2加在QuickRep1後面並一起列印出來?
christie
資深會員


發表:28
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-01-15 12:01:38 IP:61.59.xxx.xxx 未訂閱

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?
homeboy
一般會員


發表:11
回覆:11
積分:4
註冊:2007-11-20

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-01-16 12:08:54 IP:140.130.xxx.xxx 訂閱
感謝christie的回覆,經您的範例測試結果是可以將QuickRep2接續再QuickRep1後面列印出來,那假設如果我是要將QuickRep2接續在QuickRep1後面再一起預覽列印顯示出來,不知有什麼方法可行呢?我有測試將QuickRep1和QuickRep2一起預覽列印顯示出來,但是結果是先預覽列印QuickRep1之後關閉再出現QuickRep2,有什麼方法可以將QuickRep1和QuickRep2結合之後一起預覽列印出來呢?
junlin
初階會員


發表:66
回覆:94
積分:42
註冊:2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-01-17 11:55:42 IP:61.220.xxx.xxx 訂閱
search the "QRCompositeReport"
homeboy
一般會員


發表:11
回覆:11
積分:4
註冊:2007-11-20

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-01-25 09:39:59 IP:140.130.xxx.xxx 訂閱
感謝junlin回覆,QRCompositeReport的確可以將兩個quickrep合併再一起,謝謝。
系統時間:2017-10-23 17:51:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!