QuickReport无法打印第2页内容! |
尚未結案
|
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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |