我的一个报表设计时需要2至多页，我在QrReport上只能使用一页的内容。我该如何做？(50分)

Z

zljzyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #1

谢谢大家了，帮忙拉一下

 

C

cwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #2

用fastreport.

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #3

把一个数据库在QrReport中分成两份。

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #4

开个玩笑，用WORD吧，或EXCEL

 

Z

zljzyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #5

看来是没有好办法了，我现在只能用QrReport，对了FastReport的D6下的版本哪可以下？

 

N

netatom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #6

可以用多个QrReport,自定义窗口进行预览。
前一页，下一页可自定义为
QrReport1.preview;
QrReport2.preview;
...........

 

S

smallcatxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-27

• #7

to netatom:
我试过了，两张报表不是在一个窗口中，能否在一个窗口中上下页预览呢？可能是我没能
理解你的意思，可以说详细点吗？继续关注 Webmaster@tc-n.com.cn

 

F

flyddl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-27

• #8

试试TQRCompositeReport，他用来连接多个QuickRep

 

N

netatom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #9

假设现有报表QrReport1,QrReport2.......
1.做一个自定义的预览窗口.放置一个QrPreview.
2.定义一个变量做为计数器i初始为1,按上一页时不i-1,下一页时i+1.
3.定义一过程:
procedure TPrintForm.QuickRepPreview(Sender: TObject);
begin
QRPreview1.QRPrinter := TQRPrinter(Sender);
end;
4.在Form.Create是设置:
QrReport.OnPreview := QuickRepPreview;
5..case i of
1:QrReport1.preview;
2:QrReport2.preview;
......
end;
关于自定义预览窗口,可参考QuickReport的Demo.

 

W

windwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #10

画两张报表ReportA,ReportB
放个TQRCompositeReport控件.
procedure TFMPlanEngage.QRCompositeReport1AddReports(Sender: TObject);
begin
QRCompositeReport1.Reports.Add(ReportA);
QRCompositeReport1.Reports.Add(ReportB);
end;
预览
QRCompositeReport1.Preview

 

Z

zljzyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #11

多人接受答案了。