想請問一個標籤列印的問題...QuickReport |
答題得分者是:supman
|
furesu
一般會員 發表:26 回覆:10 積分:7 註冊:2004-10-22 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
|
furesu
一般會員 發表:26 回覆:10 積分:7 註冊:2004-10-22 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
|
furesu
一般會員 發表:26 回覆:10 積分:7 註冊:2004-10-22 發送簡訊給我 |
引言: 您好: 基本上這樣設置就可以了,他的顯示方式是由上到下顯示,如果您資料不到一頁,是不會出現第二欄的. 另外設計時其他只會出現在左上角,要程式在執行時並且資料夠多才會出現兩欄,您在試試看.我想要印出來的格式是類似這篇 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=74350 一頁印出多個標籤,每個標籤都是相同內容, 順便請教您一下 依您所說 要資料量夠才會出現第二欄, but我的只是讀一筆客戶資料,標籤內只印其中的名稱,郵遞區號,住址,收件人, 然後印出來是如上說的排列方式,而4個欄位的資料只有幾行, 無法滿足資料多的這個條件,也就無法在一頁印出多個相同的標籤 |
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您是說要相同資料然後比如一頁印出4個標籤這樣??
如果是的話要寫一下程式
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, ExtCtrls, StdCtrls, QRCtrls; type TForm1 = class(TForm) QuickRep1: TQuickRep; QRBand1: TQRBand; Button1: TButton; QRLabel1: TQRLabel; procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); procedure QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var CurrentIndex:integer; {$R *.dfm} procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData:=(CurrentIndex<4);//如果印不到4個就繼續印下去 Inc(CurrentIndex); end; procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin CurrentIndex:=0;//初始化 end; procedure TForm1.Button1Click(Sender: TObject); begin QuickRep1.Preview(); end; end.您要自己在每一個尺寸上調整大小,有時候一頁會不是您要的數量,有時候某些印表機會很頭痛>"< |
furesu
一般會員 發表:26 回覆:10 積分:7 註冊:2004-10-22 發送簡訊給我 |
引言: 您是說要相同資料然後比如一頁印出4個標籤這樣?? 如果是的話要寫一下程式喔 了解..多謝熱心回覆unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, ExtCtrls, StdCtrls, QRCtrls; type TForm1 = class(TForm) QuickRep1: TQuickRep; QRBand1: TQRBand; Button1: TButton; QRLabel1: TQRLabel; procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); procedure QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var CurrentIndex:integer; {$R *.dfm} procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData:=(CurrentIndex<4);//如果印不到4個就繼續印下去 Inc(CurrentIndex); end; procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin CurrentIndex:=0;//初始化 end; procedure TForm1.Button1Click(Sender: TObject); begin QuickRep1.Preview(); end; end.您要自己在每一個尺寸上調整大小,有時候一頁會不是您要的數量,有時候某些印表機會很頭痛>"< |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |