QR的問題--Summary Band 不能拉至 Page Footer底下 |
|
尚未結案
|
|
lincw_darharnq
一般會員   發表：18 回覆：12 積分：6 註冊：2003-08-06 發送簡訊給我 |
|
|
mi86018
一般會員 發表：20 回覆：39 積分：21 註冊：2003-11-17 發送簡訊給我 |
您好！
據我所知，在QR中，Summary Band是「一定」會在Pagefooter band之上的，這是不可以更動的，這是因為Summary band的屬性是整份報表文件的摘要，而PageFooter則是在每一頁的「最後列印區段列印一次」，因此我建議你將「總計」放在PageFooter band，「小計」放在Summary band，而如果希望「總計」只在最後一頁的最下面顯示出來的話，你可以將TQuickRep.Options.LastPageFooter 設為 True 。 不知道這樣對你有沒有幫助。
|
|
lincw_darharnq
一般會員 發表：18 回覆：12 積分：6 註冊：2003-08-06 發送簡訊給我 |
mi86018大大
請問一下 要如何將Summary Band技巧性的當作『小計』使用，每頁列印呢?而PageFooter band如何技巧性的當作『小計』使用僅在最後一頁列印呢? 請大大再說明一下~~~~謝謝啦~~
引言: 您好！ 據我所知，在QR中，Summary Band是「一定」會在Pagefooter band之上的，這是不可以更動的，這是因為Summary band的屬性是整份報表文件的摘要，而PageFooter則是在每一頁的「最後列印區段列印一次」，因此我建議你將「總計」放在PageFooter band，「小計」放在Summary band，而如果希望「總計」只在最後一頁的最下面顯示出來的話，你可以將TQuickRep.Options.LastPageFooter 設為 True 。 不知道這樣對你有沒有幫助。 |
|
mi86018
一般會員 發表：20 回覆：39 積分：21 註冊：2003-11-17 發送簡訊給我 |
引言: mi86018大大 請問一下 要如何將Summary Band技巧性的當作『小計』使用，每頁列印呢?而PageFooter band如何技巧性的當作『小計』使用僅在最後一頁列印呢? 請大大再說明一下~~~~謝謝啦~~我用了一個很笨的方法..希望看了不要偷笑...
unit Unit2; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls; type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRBand2: TQRBand;
QRShape1: TQRShape;
QRLabel2: TQRLabel;
ADOTable1: TADOTable;
QRLabel1: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
procedure QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
procedure FormCreate(Sender: TObject);
procedure QuickRep1EndPage(Sender: TCustomQuickRep);
private
ThisPageCount,TotalCount:integer; //宣告全域變數
{ Private declarations }
public
{ Public declarations }
end; var
Form2: TForm2; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject);
begin //formcreate時先歸零
ThisPageCount:=0;
TotalCount:=0;
end; procedure TForm2.QRBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin //每次Detail band列印一行就將這兩個變數加一
Inc(ThisPageCount);
Inc(TotalCount);
end; procedure TForm2.QuickRep1EndPage(Sender: TCustomQuickRep);
begin //在每一頁印完之後..將小計歸零
ThisPageCount:=0;
end; procedure TForm2.QRBand2BeforePrint(Sender: TQRCustomBand;//page footer band
var PrintBand: Boolean);
begin
QRLabel1.Enabled := false; // 不是最後一頁的話 pagefoot band不顯示 '總計' 的Lable
QRLabel6.Enabled := false; // 同上一行 QRLabel5.Caption := inttostr(ThisPageCount);//將每一頁的小計印出
QRLabel6.Caption := inttostr(TotalCount); //將總和印出 if ADOTable1.RecordCount = TotalCount then //如果最後加總的總和等於全部的RecordCount，意思就是到了最後一頁
begin
QRLabel1.Enabled := true; // 最後一頁 pagefoot band顯示 '總計' 的Lable
QRLabel6.Enabled := true;
end;
end;
end.
我是頭號「問題」份子...
|
|
mi86018
一般會員 發表：20 回覆：39 積分：21 註冊：2003-11-17 發送簡訊給我 |
|
|
gohorng
一般會員 發表：2 回覆：3 積分：1 註冊：2004-08-16 發送簡訊給我 |
發表時間：2004-03-04 16:16:31
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-05-11 17:57:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |