| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 915 人关注过本帖
标题:打印分页处理
只看楼主 加入收藏
cxzbzgz
Rank: 8Rank: 8
来 自:云南楚雄
等 级:贵宾
威 望:24
帖 子:297
专家分:808
注 册:2012-6-15
收藏
得分:3 
在你的数据表中添加一个字段,该字段作为数据报表分页的依据。在你的调用报表的表单中添加一个文本框,该文本框中输入的数据作为你分组的依据,在打印的Click代码中添加如果代码:
nfy=ThisForm.Text1.Value    &&该值为你在文本框中输入你想分页的数字,可以是10,也可以是15,或者20
GO TOP
j=1
DO WHIL !EOF()
 I=1
 DO WHIL !EOF() AND I<=NFY  &&
  REPL FYYJ WITH I          &&假设你在数据表中添加分页依据的字段是FYYJ,这个字段名是什么由你本人自定
 SKIP
 I=I+1                      &&每次递增1,满足分页条件就退出
 ENDDO
 j=j+1                      &&另外起一页
ENDDO

学习交流VFP,QQ:248561326。
2013-01-15 18:02
bccn482561
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:80
专家分:142
注 册:2012-11-30
收藏
得分:2 
如果是在程序或方法中,可以用EJECT命令分页。
EJECT 要求打印机走纸到下一页的顶端。如果系统内存变量 _PADVANCE 设置为 FORMFEED,则 EJECT 发送一个分页符到打印机。如果 _PADVANCE 设置为 LINEFEEDS,则 EJECT 将不断发送换行符,直至打印机走纸到下一页的顶端。

EJECT 把 PCOL( ) 和 PROW( ) 重置为打印机打印头当前的行、列位置值,但不影响系统内存变量 _PAGENO 或 _PLINENO 。
2013-01-15 18:06
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
记号了。也学习了。看来用控制打印记录数是不能达到排版要求的,对于大量数据的打印不可能一页一页的输记录号的。这个有的麻烦。不知怎样搞。真是让人那什么,最近有个游戏解说员说了一个很早就出现的词‘蛋疼’。

[ 本帖最后由 qshuju 于 2013-1-23 07:27 编辑 ]
2013-01-22 22:24
快速回复:打印分页处理
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060161 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved