我使用QuickRep来做报表的打印,但有一个地方的内容字数很多,需要分页才可以显示完,如果只有一页的话打印的时候就不完整了,那么要怎么样才能按自己的意思分页呢??
解决方案 »
- Delphi7 +Report Machine6.5 主从表关系,求高手解答。。。在线等。。。。。
- 能否将DELPHI中的DB数据库转换为MDB数据库呢?
- DBGridEh 如何加一个类似复选框的列
- 决不吝啬分;在使用SPCOMM中Tlist出现list index out of bounds(),高手进来看看,有贴代码!
- 怎样压缩用DElphi编译的.exe程序?有什么工具?
- 一个简单的查询语句
- 把TXT导入SQL内的表T1 字段是CODE(CHAR 15)内
- ADO 异步存取的时侯, 记录集定位错误的问题( 有兴趣来看看啊, 答对给分)
- 关于DLL的问题
- 为什么会这样? DELPHI 服务程序与 远程连接的问题. 远程连接不能使用服务程序里的连接. 而是又启动了另外一个程序.
- (100分)在XP的客戶端﹐程序不可用﹐出現的錯誤是"interface not supported",但是在W2K下可以
- 计算磁盘空间的时候,磁盘空间太大,cluster太大,计算出的数据总不对,是不是数据溢出了,怎么解决?
我的贴子有200分,请到这里帮忙解决.
http://expert.csdn.net/Expert/topic/2158/2158743.xml?temp=.519726
先声明一个变量varTempName : string;调用报表预览procedure TForm1.Button1Click(Sender: TObject);beginquery1.Close;query1.Open;TempName := query1.fieldbyname('name').AsString;QuickRep1.Preview;end;调用DetailBand的BeforePrint方法procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);beginif Query1.FieldByName('Name').AsString <>TempName thenbeginquickrep1.NewColumn;tempname := query1.fieldbyname('name').Asstring;end;end;