怎样实现强制分页？(50分)

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #1

我用手动画报表，一页画完之后，怎样画到下一页去？？？？？？
用程序实现。
帮帮我！！！！！
画法如下例：
procedure Tqrpt_quanbu.beforepreview;
//自定义
var
i:integer;
atop:integer;
aLabel:TQRLabel;
aLine:TQRShape;
begin
atop:=50;
i:=1;
for i:=1 to 600do
begin
aLine:= TQRShape.Create(qrpt_quanbu);
aLine.Parent := TitleBand1;
with aLinedo
begin
aLine.Left:=0;
aLine.Top:=atop+20;
aLine.Width:=718;
aLine.Height:=1;
aLine.Frame.Color:=clBlack;
end;
end;
end;

 

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #2

很急啊，在线等待！
请高手帮忙！！

 

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #3

没人我的问题吗？

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #4

强制分页 // QuickRep1.NewColumn QuickRep1.NewPage
不过对你 的 代码 好像 没有 用处。

 

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #5

TO：hfghghfg:
怎样才有用呢？
画到末尾的时候，怎样另起一页？

 

L

lfjohn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #6

试试QuickRep1.NewPage;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #7

需要打印的所有的内容都应该在一个Band里面，然后在QuickRep1NeedData写需要打印的内容（就是给QRLabel.caption赋值）
procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData:=True;
{引入上面的代码}
MoreData:=False;
end;
然后在Band的AfterPrint里写
if not table1.Eof then
quickrep1.NewColumn

 

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #8

好象没用，

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #9

只是个举个例子说说的，我这有一个完整的例子！！
可以共享……………………………………………………

 

浮

浮城

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #10

多人接受答案了。