1.請教PageSize 格式:csheet,dsheet,env10,env11,env12,env14,env9 ,esheet,executiue,foloi,ledger,note....等各類 用途?在何處可找到相關資訊? 2.一般普遍報表80行,132行,中一刀等報表,在Qreport如何設定格式? 3.如何在每頁印出該頁筆數? 新手上路 發表人 - chubby 於 2003/05/27 00:18:55

2.http://delphi.ktop.com.tw/topic.php?topic_id=237

引言: 2.http://delphi.ktop.com.tw/topic.php?topic_id=237

看很多之前相關資料,還是要一段一段整合起來 有一點請教: 報表單位是用inch 或 cm 那一種單位去設定比較理想?,連續報表紙計算 是否含雙邊代孔寬度? Thank

引言:
1.請教PageSize 格式:csheet,dsheet,env10,env11,env12,env14,env9
                  ,esheet,executiue,foloi,ledger,note....等各類
用途?在何處可找到相關資訊?

格式是Quick Report內定紙張尺寸定義,參考Delphi Help說明,至於用途依尺寸不同有單張紙,連續報表紙,信封..等,並無一定標準,至於尺寸可在QuickRep.page.PaperSize下拉改變時其尺寸會顯示.    2.一般普遍報表80行,132行,中一刀等報表,在Qreport如何設定格式?    自定尺寸為適用Win9x,WinNT,WIn2000,WinXP環境提供下列做法         Report.page.PaperSize:=Custom;
     //--設定紙張大小
     Report.page.Length:=PaperLen; //紙張長
     Report.page.Width:=PaperWid;  //紙張寬
     Report.Page.paperSize:=Default; //套表或自定尺寸一定為Default    此外WinNT,WIn2000,WinXP要在列印伺服定義紙張格式
順便參考下列文章    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26954
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27034    3.如何在每頁印出該頁筆數?    可印在Header or Footer
procedure TFmRepFom.HeaderBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  LbPageNo.Caption:='頁數:' Report.PageNumber; 
end;    新手上路        發表人 - chubby 於 2003/05/27  00:18:55

單位以mm較合適,連續報表紙應該不含兩邊孔,可用尺量量看80行寬為215.9mm 發表人 - cmj 於 2003/05/27 23:55:21 發表人 - cmj 於 2003/05/27 23:56:51

引言: 3.如何在每頁印出該頁筆數? 可印在Header or Footer procedure TFmRepFom.HeaderBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin LbPageNo.Caption:='頁數:' Report.PageNumber; Report.PageNumber是否有誤 Report 是否為 QuickReport ? end; 新手上路 發表人 - chubby 於 2003/05/27 00:18:55

[/code] 單位以mm較合適,連續報表紙應該不含兩邊孔,可用尺量量看80行寬為21.59mm 在行車中左搖右搖方向盤已漸穩定中行駛,謝謝 發表人 - chubby 於 2003/05/28 14:57:48

引言:

引言: 3.如何在每頁印出該頁筆數? 可印在Header or Footer procedure TFmRepFom.HeaderBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin LbPageNo.Caption:='頁數:' Report.PageNumber; Report.PageNumber是否有誤 Report 是否為 QuickReport ? end; 新手上路 發表人 - chubby 於 2003/05/27 00:18:55

[/code] 單位以mm較合適,連續報表紙應該不含兩邊孔,可用尺量量看80行寬為21.59mm 在行車中左搖右搖方向盤已漸穩定中行駛,謝謝 發表人 - chubby 於 2003/05/28 14:57:48

抱歉應為 LbPageNo.Caption:='頁數:' ＋inttostr(Report.PageNumber); 紙寬是215.9mm or 21.59CM 非 21.59mm Report 是 TQuickRep 元件,一般預設Name 為QuickRep1,PageNumber為其貢數．

LbPageNo.Caption:='頁數:' ＋inttostr(Report.PageNumber); 應為該頁 Page Number 我是想 印出該頁報表的Record Count Number 本頁筆數:51筆 QuickRep 與 QuickReport 元件有何不同用法? 謝謝cmj,辛苦了 [/quote]

Sorry沒看清楚 算筆數參考下列文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28744

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28744 引上http://...... 最後PageFooter列印本頁筆數 procedure TFcpQuickReport1.PageFooterBand1BeforePrint( Sender: TQRCustomBand; var PrintBand: Boolean); begin QRlabel1.Caption:='Record:' inttostr(DetailCount); end; 不管放BeforePrint或AfterPint無法印出內容? 找過 http://delphi.ktop.com.tw/topic.php?topic_id=20610 QRExpr的ResetAfterPrint設成True即可。 再加一個rbSummary加總數量。 在那可找到ResetAfterPrint及rbSummary? Thank

引言: 最後PageFooter列印本頁筆數 . . . 不管放BeforePrint或AfterPint無法印出內容?

請改放在TFcpQuickReport1.QuickRep1BeforePrint裡面.

引言: 在那可找到ResetAfterPrint及rbSummary? Thank

1.ResetAfterPrint->在QRExpr1屬性設定裡面,設為True; 2.rbSummary->放一個Band,屬性BandType設為rbSummary.. TYR TRY SEE 發表人 - chih 於 2003/05/29 10:38:15

[/quote] 請改放在TFcpQuickReport1.QuickRep1BeforePrint裡面. procedure TFcpQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin QRlabel1.Caption:='Record:' IntToStr(DetailCount); end; 1.ResetAfterPrint->在QRExpr1屬性設定裡面,設為True; (ok) 2.rbSummary->放一個Band,屬性BandType設為rbSummary.. (是否為PageFooterBand1) (在PageFooterBand1,放QRExpr1,QRlabel1元件 在PageFooterBand1-> BandType ->rbSummary 還是不行)why Thank 發表人 - chih 於 2003/05/29 10:38:15 [/quote]

不是PageFooterBand1,而是你要另外放一個Band,如果還是不行請將程式上傳以便幫你看哪裡設定錯了..

引言: (是否為PageFooterBand1) (在PageFooterBand1,放QRExpr1,QRlabel1元件 在PageFooterBand1-> BandType ->rbSummary 還是不行)why Thank

unit fcomPrint; interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls; type TFcpQuickReport1 = class(TQuickRep) CompaColumnHeaderBand1: TQRBand; CompaDetailBand1: TQRBand; CompaSummaryBand1: TQRBand; CompaPageHeaderBand1: TQRBand; CompaQRLabel2: TQRLabel; CompaQRLabel3: TQRLabel; CompaQRLabel4: TQRLabel; CompaQRLabel7: TQRLabel; CompaQRLabel5: TQRLabel; CompaQRLabel6: TQRLabel; CompaQRLabel8: TQRLabel; CompaQRLabel9: TQRLabel; CompaQRLabel10: TQRLabel; CompaQRShape1: TQRShape; CompaQRDBText1: TQRDBText; CompaQRDBText2: TQRDBText; CompaQRDBText5: TQRDBText; CompaQRDBText3: TQRDBText; CompaQRDBText4: TQRDBText; CompaQRDBText6: TQRDBText; CompaQRDBText7: TQRDBText; CompaQRDBText8: TQRDBText; CompaQRSysData4: TQRSysData; CompaQRSysData5: TQRSysData; CompaQRShape2: TQRShape; CompaQRSysData1: TQRSysData; CompaQRSysData2: TQRSysData; CompaQRSysData3: TQRSysData; CompaQRLabel1: TQRLabel; QRBand1: TQRBand; QRLabel1: TQRLabel; QRExpr1: TQRExpr; procedure CompaPageHeaderBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); procedure CompaDetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); procedure QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); private public end; var FcpQuickReport1: TFcpQuickReport1; DetailCount:Integer; implementation uses fcpamodule1; {$R *.DFM} procedure TFcpQuickReport1.CompaPageHeaderBand1AfterPrint( Sender: TQRCustomBand; BandPrinted: Boolean); begin DetailCount:=0; end; procedure TFcpQuickReport1.CompaDetailBand1AfterPrint( Sender: TQRCustomBand; BandPrinted: Boolean); begin Inc(DetailCount); end; procedure TFcpQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRlabel1.Caption:='本頁筆數:' IntToStr(DetailCount); end; 懇請幫忙

可以將程式製作壓縮檔上傳至求助區嗎?.程式碼無法看出屬性設定

引言: 可以將程式製作壓縮檔上傳至求助區嗎?.程式碼無法看出屬性設定 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31422 已上傳懇請Help Me

看了妳的程式做如下修改 主要是BandType設錯 SummaryBand1 刪除 QRExpr1 刪除 QRBand1之 BandType 改 rbPageFooter PageHeaderBand1 之 BandType 為 rbPageHeader ColumnHeaderBand1 之 BandType 為 rbColumnHeader DetailBand1 之 BandType 為 rbDetail 可以把QRBand1,PageHeaderBand1,ColumnHeaderBand1 設為不同color 以觀察其結果就可了解各Band顯示狀況

[quote] 不好意思,還是有點?    procedure TQuickReport2.DetailBand1AfterPrint(Sender: TQRCustomBand;   BandPrinted: Boolean); begin  Inc(DetailCount); /// + Test Detailcount  qrlabel7.Caption:=Inttostr(detailcount); // 顯示筆數(detailcount)還是空白    procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;   var PrintReport: Boolean); begin QRlabel6.Caption:='本頁筆數:'+IntToStr(DetailCount); end; 也是空白    ///  不知? 已Send Cust-1.zip Help me see see Thank end; 發表人 - chubby 於 2003/05/30 01:28:07

幫你做了一點修正,程式如下.你要的功能完全不用程式碼,現在剩下一個問題, 就是最後一頁的每頁筆數會印在最下面,如果這點可以接受的話就OK了,有問題在post.. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31444 TRY TRY SEE

引言: 幫你做了一點修正,程式如下.你要的功能完全不用程式碼,現在剩下一個問題, 就是最後一頁的每頁筆數會印在最下面,如果這點可以接受的話就OK了,有問題在post.. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31444 TRY TRY SEE Thank all predecessor