| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1147 人关注过本帖
标题:如何在表单中打印当记内容
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
自己写代码设计表单

坚守VFP最后的阵地
2014-01-24 16:40
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:10 
打开报表-报表设计模式下,右键-数据环境-右键点中表-移去。
双击表单-init事件写:
public nRec
use xxxx.dbf alias xx
nRec=0
在打印按钮click事件写:
nRec=nRec+1
select xx
go nRec
if !eof()
    report from xxxx.frm next 1 to printer
else
    =message("打完收工","提示",64)
endid
return

[ 本帖最后由 whinda 于 2014-1-24 19:28 编辑 ]
2014-01-24 19:19
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
report ....  next 1.……,改为next 1哈。写错了
2014-01-24 19:26
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
把要打印的当前记录COPY到一个临时表AA,用AA作报表的数据源,打印肯定没问题的
2014-01-24 20:16
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:10 
上传报表和相关表。

相互学习,互相交流,共同提高。
2014-01-24 21:18
xtxzgl
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-8-22
收藏
得分:0 
我找到解决方法,把表单其中一“唯一字段”做关键字,到报表中去搜索
如下
REPORT FORM d:\xfdj\表1.frx FOR ALLTRIM(编号)=ALLTRIM(thisform.编号.Value)TO PRINTER PREVIEW IN screen

[ 本帖最后由 xtxzgl 于 2014-1-28 10:59 编辑 ]

活到老学到老
2014-01-28 10:56
qczx3358
Rank: 2
等 级:论坛游民
帖 子:44
专家分:15
注 册:2014-1-19
收藏
得分:0 
是不是把表的指针跳到最后一条记录上。
2014-01-29 07:26
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
先定位要打印的记录,然后用3楼提供的代码打印。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-01-29 09:10
快速回复:如何在表单中打印当记内容
数据加载中...
 
   



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

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