QR 如何指定開始列印的 Row 呢？ |
|
答題得分者是：chih
|
|
Skyer
高階會員   發表：43 回覆：111 積分：120 註冊：2002-04-04 發送簡訊給我 |
請問：
目前我要在一張 A4 上分兩欄、八行 共 16 筆資料 (3 個 Text)
----- ----- | 1 | 9 | ----- ----- | 2 | 10 | ----- ----- | 3 | 11 | ----- ----- | 4 | 12 | ----- ----- | 5 | 13 | ----- ----- | 6 | 14 | ----- ----- | 7 | 15 | ----- ----- | 8 | 16 | ----- -----想請問的是，如何指定開始的 row 數呢？ 例： 指定 8 則每個 Page 都只印 8, 16 指定 7 則每個 Page 只印 7, 15... 會這樣作原因是我要印住址在貼紙上.. 謝謝幫忙回答 -- Regards, Skyer 發表人 - skyer 於 2002/12/02 12:17:28
------
-- Regards, Skyer |
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
Skyer
高階會員 發表：43 回覆：111 積分：120 註冊：2002-04-04 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
Skyer
高階會員 發表：43 回覆：111 積分：120 註冊：2002-04-04 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
假設你的QRDBText分別為QRDBText1至 QRDBText16..
你要設二個變數..x,y..//全域變數
//x判斷是否為第一頁,y判斷如果是第一頁的話要空多少Rows
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if x then
begin
if y=1 then
begin
QRDBText1.Enabled:=False;
QRDBText9.Enabled:=False;
end
else
if y=2 then
begin
QRDBText1.Enabled:=False;
QRDBText2.Enabled:=False;
QRDBText9.Enabled:=False;
QRDBText10.Enabled:=False;
end
else
...
end;
然後再AfterPrint把x,y清空..因為在第二頁就要開始正常列印..從第一筆...
try try see...
這個我以前有寫過一個...空幾個Rows由user決定...
我上次買的貼紙好像是12格的...
你試試看..如果真的不行再說吧..
有問題在POST...
引言: 謝謝回答.. 我需要的是從 81 開始印的.. -- Regards, Skyer發表人 - chih 於 2002/12/02 14:04:30 |
|
Skyer
高階會員 發表：43 回覆：111 積分：120 註冊：2002-04-04 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
發表時間：2002-12-02 02:20:55
IP:61.224.xxx.xxx 未訂閱
系統時間：2024-05-06 1:19:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |