请教quickreport中分页的实现

maojincxj 2003-09-08 09:56:11

现有一个数据表，每项记录保存5幅图片，图片很大
无法在一页显示。

请问怎么才能使其每个记录分页显示，各个记录依次显示。

我用qrpageheader,qrdetail,qrpagefooter.

在qrdetail中放5幅图，如果很小会不好看（数据显示不清楚），
但是报表不会自动分页，
请问各位大虾怎么实现分页。
我搜索了论坛，都希望不分页的，真是ft啊，
感激不尽

...全文

50 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

maojincxj 2003-09-15

打赏
举报

回复

没人回答，
自己顶一下

maojincxj 2003-09-10

打赏
举报

回复

楼上的大虾，可否给个较详细的代码例子

thp 2003-09-09

打赏
举报

回复

afterPrint事件中newPage

runnerrunning 2003-09-08

打赏
举报

回复

不太熟悉qr,但是有个建议：
如果能实现分组打印，每个组以新页打印，那么就把你的纪录分组就可以

QuickReport 报表按要求分页打印的演示例子。

QuickReport打印DBGrid中的数据并实现分页

方便quickreport控件自动换行问题 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; BitBtn1: TBitBtn; btnPrev: TBitBtn; btnPrt: TBitBtn; btnExit: TBitBtn; Memo1: TMemo; procedure btnPrevClick(Sender: TObject); procedure btnPrtClick(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure btnExitClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2,Unit3; {$R *.dfm} procedure TForm1.btnPrevClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //预览 Form3.QuickReport3.preview; end; procedure TForm1.btnPrtClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //打印 //Form3.QuickReport3.PreviewModal; Form3.QuickReport3.PrinterSetup; Form3.QuickReport3.Print; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin with DM.ADOQyp do begin close; sql.Clear; sql.Add(' select BM,MC from zd_yp where bm like ''04443'' '); open; end; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldValues['MC'].AsString; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldByName('MC').AsString; //Form3.QRMemo1.Lines.Text:= Memo1.Text; Form3.QRRichText1.Lines.Text := DM.ADOQyp.FieldByName('MC').AsString; end; procedure TForm1.btnExitClick(Sender: TObject); begin close; end; end.

QuickReport报表查询器

delphi7的QuickReport控件安装版

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章