QuidkRep新建页！ |
|
尚未結案
|
|
SUNSEAVE
一般會員   發表：66 回覆：44 積分：22 註冊：2003-09-23 發送簡訊給我 |
|
|
chih
版主  發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
SUNSEAVE
一般會員 發表：66 回覆：44 積分：22 註冊：2003-09-23 發送簡訊給我 |
下面代码只能预览第一页的内容，第2页内容只能覆盖在第一页内容之上，也就是说第一页的内容没有被去掉，重新又打了一次！Block作用是吧纸张一分为四
如果打印完第4个Block后就应该NEWPAGE了，但无法实现！！！
procedure TFrmEditProductPacket.ToolbarButton972Click(Sender: TObject);
var I, H, Number, Block, BlockOld, Num: integer;
begin
inherited;
Num := 0;
Block := 4;
BlockOld := 4;
FrmProductPacketPreview := TFrmProductPacketPreview.Create(self);
I := 20;
H := 20;
with (FDmdTranMaster as TDmdProductPacket) do
begin
QrySecond.First;
Number := QrySecond.FieldByName('PacketID').AsInteger;
while not QrySecond.Eof do
begin
if (Number <> QrySecond.FieldByName('PacketID').AsInteger) or (Num = 10) then
begin
Number := QrySecond.FieldByName('PacketID').AsInteger;
Block := Block 1;
Num := 0;
end;
if ((Block mod 4) = 0) and (BlockOld <> Block) then
begin
FrmProductPacketPreview.QuickRep1.Prepare;
FrmProductPacketPreview.QuickRep1.Preview;
// FrmProductPacketPreview.QuickRep1.NewPage;
end; if BlockOld <> Block then
case Block mod 4 of
0: begin I := 20; H := 20; BlockOld := Block; end;
1: begin I := 400; H := 20; BlockOld := Block; end;
2: begin I := 20; H := 500; BlockOld := Block; end;
3: begin I := 400; H := 500; BlockOld := Block; end;
end; //print begin
aLabel := TQRLabel.Create(FrmProductPacketPreview);
aLabel.Parent := FrmProductPacketPreview.QRBand1;
aLabel.Left := H;
aLabel.Top := I;
aLabel.Height := 17;
aLabel.width := 40;
aLabel.Caption := QrySecond.FieldByName('ItemCode').AsString; aLabel := TQRLabel.Create(FrmProductPacketPreview);
aLabel.Parent := FrmProductPacketPreview.QRBand1;
aLabel.Left := H 90;
aLabel.Top := I;
aLabel.Height := 17;
aLabel.width := 40;
aLabel.Caption := QrySecond.FieldByName('Attribute').AsString; aLabel := TQRLabel.Create(FrmProductPacketPreview);
aLabel.Parent := FrmProductPacketPreview.QRBand1;
aLabel.Left := H 190;
aLabel.Top := I;
aLabel.Height := 17;
aLabel.width := 40;
aLabel.Caption := QrySecond.FieldByName('Qty').AsString; I := I 15;
Num := Num 1;
//print end QrySecond.Next;
end;
FrmProductPacketPreview.QuickRep1.Prepare;
FrmProductPacketPreview.QuickRep1.Preview;
FrmProductPacketPreview.Free;
end;
end;
|
發表時間：2003-09-26 09:32:43
IP:61.171.xxx.xxx 未訂閱
系統時間：2024-05-17 4:50:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |