社区
VCL组件使用和开发
帖子详情
关于QuickReport的分页求助,新手
albeta
2005-11-17 12:35:05
比如说,在通常情况下,一页可以打印20行记录,但是我想要它每页打印10行,剩下的空间就留在那里,怎么设置啊?
新手提问,请讲清楚一点,最好能够有代码。
...全文
156
4
打赏
收藏
关于QuickReport的分页求助,新手
比如说,在通常情况下,一页可以打印20行记录,但是我想要它每页打印10行,剩下的空间就留在那里,怎么设置啊? 新手提问,请讲清楚一点,最好能够有代码。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
albeta
2005-11-18
打赏
举报
回复
自己再UP一次
h98458
2005-11-17
打赏
举报
回复
在QuickReport的明细Band的BeforePrint里写代码:
static int iCount=0; //每页打印10条记录
iCount++;
if (iCount>10)
{
iCount=0;
PrintBand=false;
QuickRep1->NewPage();
}
else
{
PrintBand=true;
}
albeta
2005-11-17
打赏
举报
回复
UP一下
Quick
Report
分页
打印演示
Quick
Report
报表按要求
分页
打印的演示例子。
quick
report
自动换行
方便
quick
report
控件自动换行问题 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 //调用
Quick
Report
3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //预览 Form3.
Quick
Report
3.preview; end; procedure TForm1.btnPrtClick(Sender: TObject); begin //调用
Quick
Report
3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //打印 //Form3.
Quick
Report
3.PreviewModal; Form3.
Quick
Report
3.PrinterSetup; Form3.
Quick
Report
3.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.
Quick
Report
报表查询器
Quick
Report
报表查询器
quick
report
delphi7的
Quick
Report
控件安装版
Quick
Report
Quick
Report
简单,几乎不需要过多学习就可以使用。目前最新版本为5.04。该压缩包解压后直接安装即可。其中缺几个与C++ builder2009使用无关文件(除非重新编译该包),安装时选择跳过。Delphi 2009也可以使用该组件包。
VCL组件使用和开发
602
社区成员
13,459
社区内容
发帖
与我相关
我的任务
VCL组件使用和开发
C++ Builder VCL组件使用和开发
复制链接
扫一扫
分享
社区描述
C++ Builder VCL组件使用和开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章