全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:739
推到 Plurk!
推到 Facebook!

QuickReport无法打印第2页内容!

尚未結案
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-28 15:00:05 IP:61.170.xxx.xxx 未訂閱
下面代码只能预览第一页的内容,第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;
系統時間:2024-06-29 9:25:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!