如何讓兩個QuickRep合併列印? |
答題得分者是:junlin
|
homeboy
一般會員 發表:11 回覆:11 積分:4 註冊:2007-11-20 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
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 發送簡訊給我 |
|
junlin
初階會員 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
|
homeboy
一般會員 發表:11 回覆:11 積分:4 註冊:2007-11-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |