请问:如何打印空白行(50分)

  • 主题发起人 主题发起人 amy_yuan79
  • 开始时间 开始时间
A

amy_yuan79

Unregistered / Unconfirmed
GUEST, unregistred user!
我用的是Quickrep
要求一页打印20行,但是打到最后一页只剩下15行了,怎么打出5个空白行(即没内容的表格线)
 
最好是在数据集里插入空行
不然用Report Machine也可实现
 
判断总行数与实际记录之差然后append空行。
 
请问用Report Machine怎么做?
 
看看这个:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=748370
------------------------------------
问题:关于报表打印的问题,100分 ( 积分:50, 回复:9, 阅读:98 )
分类:报表/统计图形 ( 版主:liuly, cAkk )
来自:tlovexyj, 时间:2001-11-24 14:31:00, ID:748370 [显示:小字体 | 大字体]
1. 打印基本的表格式报表。
每页只打印5条记录,如果在query中检索出7条记录,
则打印2页,在第2页中不足的自动补空行,超过则转到下一页打印。
如果不使用临时表及添加空记录,该如何实现呢?

2. 在每页的页尾,要统计出当前页中某一个字段的总合。

其实就是一个基本的进销存的进、出库的报表。


来自:徐凤华, 时间:2001-11-24 16:21:00, ID:748596
你准备用控件来完成还是直接用Printer.Canvas直接控制打印机?


来自:benlei, 时间:2001-11-24 16:35:00, ID:748623
QuickReport报表就可以实现你的功能了
注意纸张类型设置成自定义型


来自:jrq, 时间:2001-11-24 16:37:00, ID:748631 | 编辑
1. 打印基本的表格式报表。
每页只打印5条记录,如果在query中检索出7条记录,
则打印2页,在第2页中不足的自动补空行,超过则转到下一页打印。

你做成固定的5条记录的报表就可以了,不足的自动显示空白!
-------------------------------
2. 在每页的页尾,要统计出当前页中某一个字段的总合。

用QRExpr,在Expression编辑成公式 sum〔字段名字〕 就可以了!

搞定!


来自:苦海无边, 时间:2001-11-24 17:17:00, ID:748721
关注
保留看法[:D]


来自:tlovexyj, 时间:2001-11-24 20:21:00, ID:748895
to jrq
请问如何在第2页中不足的自动补空行呢?


来自:tlovexyj, 时间:2001-11-25 17:38:00, ID:749843
踢一脚


来自:yangjj, 时间:2001-11-25 19:35:00, ID:749999
用fast report 可以实现你所说的功能!很棒!


来自:tlovexyj, 时间:2001-11-26 0:08:00, ID:750378
我已经解决这个问题,先是受到jrq的提示,但是空行问题还是没有解决。
最后在sina搜索到一篇文章,甚好。
还是非常感谢jrq及各位的回答!!!
 
我感觉插入空行对我来说不太适用
我现在的问题是:
要打印这样一个结果集:字段包括实验室,设备名称,规格型号.....
现在的情况是 :有多个实验室A,B,C.. 要求不同实验室的设备不在同一页打印
如果A有15条,插入5行空记录,B有10条,插入10条空记录,
难道开始要循环一次给不同的实验室插入不同的空白行吗?
请问有没有别的方法
多谢各位
 
设置QuickReport的DataSet为nil,在OnNeedData里面写事件。给控件赋值。
没有数据的时候,设置 MoreData=False
 
我没有用过OnNeedData,我试一试好了。
如果有时间给几段代码看一下
多谢帮助。
 
谢谢帮助
 
判断最后一页打了几行,然后在接着划出剩余的几行,只要总行数够20就可以了
 

Similar threads

D
回复
0
查看
867
DelphiTeacher的专栏
D
D
回复
0
查看
836
DelphiTeacher的专栏
D
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
D
回复
0
查看
785
DelphiTeacher的专栏
D
后退
顶部