2,748
社区成员
发帖
与我相关
我的任务
分享报表打印行数问题
我试了，根本每页不打25个纪录，怎样设置打印让它打25个纪录一页？
老师，如果是你们要让报表每页打25个纪录，最后不满25的用空格补充你们怎么补
老师，如果是你们要让报表每页打25个纪录，最后不满25的用空格补充你们怎么补
...全文
请发表友善的回复…
发表回复
都市夜猫 2012-08-13
- 打赏
- 举报
简单点
1. 首先 select 分组标识, count(*) from 源表算出有多个分组
2. 每次取出一个分组的数据到一个可写的 cursor
3. 对这个 cursor 预处理: append blank 加 25 条空记录，goto top, skip 25+1, delete rest
4. 用这个 cursor 驱动报表打印
5. 循环回 2，处理下一个分组
1. 首先 select 分组标识, count(*) from 源表算出有多个分组
2. 每次取出一个分组的数据到一个可写的 cursor
3. 对这个 cursor 预处理: append blank 加 25 条空记录，goto top, skip 25+1, delete rest
4. 用这个 cursor 驱动报表打印
5. 循环回 2，处理下一个分组
yyuuu2003 2012-08-12
- 打赏
- 举报
各位老师，谢谢你们了，我解决这问题了
yyuuu2003 2012-08-12
- 打赏
- 举报
我不是要它们的统计数，而是在数据表中，不同部门又按不同部门的人打印出来的，且这日期也是不同月份自动按部门的不同月份打印出来的，比如说部门是三班，四班，每个班有六月七月的数，那么我的报表就要按三班的六月、七月打印出来，四班也是按六月七月打印出来，因为我们输的票是按打印过的数字选出来的，这选出来的数就会有不同月份不同人，所以我报表要进行两个字段的分组，即部门、月份来进行分组，这样填入的空格分全部是空格那些空行打在一起，因为当这些空行是同组同月了
lygcw9602 2012-08-12
- 打赏
- 举报
[Quote=引用 7 楼 的回复:]
打错一行字，行数控制我会了，省掉这句话
[/Quote]
表单上增加一个组合框或者复选框，添加 部门，日期。分别统计。
打错一行字，行数控制我会了，省掉这句话
[/Quote]
表单上增加一个组合框或者复选框，添加 部门，日期。分别统计。
yyuuu2003 2012-08-12
- 打赏
- 举报
打错一行字，行数控制我会了，省掉这句话
yyuuu2003 2012-08-12
- 打赏
- 举报
我刚试了一下，发现如果我用视图做数据源把空格增加在视图中是不行的，而如果直接用数据表做数据源增加的空格是可以，但不能分组，但我们的很多报表是要分组的，所以我认为增加空格的办法对分组的来说好象行不通，且我在页尾用DATE（）函数计算，比如计打印的人数，那些空格也算进去了。我的报表是两个分组，一个是按部门分组，另一个是按日期分组，如果增加空格空格的全在一页。所以如果对于分组及计算来说增加空格好象还是不是办法，各位老师你们有什么办法能用程序控制行数吗？或者如果不满一页能不能让那汇总数直接跟在最后那个纪录后面？
lygcw9602 2012-08-11
- 打赏
- 举报
[Quote=引用 2 楼 的回复:]
没有用程序能让它打多少条纪录的吗？且我用下面这样设怎么不够一页没见用空格行补够一页啊？
use mggr again
i=1
nnn=25-mod(reccount(),25)
if nnn>0
for i=1 to nnn
appen blank
endfor
endif
report form mgbmgr prev
能告诉我怎么办吗
[/Quote]
是否设置了不打印空行或者不打印重复值
没有用程序能让它打多少条纪录的吗？且我用下面这样设怎么不够一页没见用空格行补够一页啊？
use mggr again
i=1
nnn=25-mod(reccount(),25)
if nnn>0
for i=1 to nnn
appen blank
endfor
endif
report form mgbmgr prev
能告诉我怎么办吗
[/Quote]
是否设置了不打印空行或者不打印重复值
十豆三 2012-08-11
- 打赏
- 举报
建议你找一下的基础书，重点看一下报表设计。
十豆三 2012-08-11
- 打赏
- 举报
设计报表时，预览一下，看看能打印多少条？不是你想的条数，就适当调整行高或页标头高度或页注脚高度，直到是你想要的条数为至。
yyuuu2003 2012-08-11
- 打赏
- 举报
没有用程序能让它打多少条纪录的吗？且我用下面这样设怎么不够一页没见用空格行补够一页啊？
use mggr again
i=1
nnn=25-mod(reccount(),25)
if nnn>0
for i=1 to nnn
appen blank
endfor
endif
report form mgbmgr prev
能告诉我怎么办吗
use mggr again
i=1
nnn=25-mod(reccount(),25)
if nnn>0
for i=1 to nnn
appen blank
endfor
endif
report form mgbmgr prev
能告诉我怎么办吗
lygcw9602 2012-08-11
- 打赏
- 举报
调整页面布局，手动调整为每页打印25条记录（如果纸张设置过小肯定打印不了25条记录）
