标题:(已解决)运行报表时,去掉打印预览上面的“报表设计器-*.frx-页面1“标题
只看楼主
sdyswjlu
Rank: 1
等 级:新手上路
帖 子:108
专家分:0
注 册:2010-9-10
结帖率:95%
 问题点数:0 回复次数:2 
(已解决)运行报表时,去掉打印预览上面的“报表设计器-*.frx-页面1“标题
主要摘自十三豆的内容:不是本人自创的。

报表运行最大化,并去掉“报表设计器——报表1。Frx”

设置表单prewin的如下属性:

alwaysontop=.t.
autocenter=.t.
moveable=.f.
*borderstyle=2   &&固定对话框,如果不想使用滚动条的话,加上此设置。
titlebar=0
windowstate=2   &&运行时最大化
showwindow=2   &&作为顶层表单
name= 'rpform '   &&name属性很重要
visible=.f.   &&一定要设置为.f.
desktop=.f.&&&一定要注意,不要动这一项。如果设为.t.则下列打印语句中的windows  repform,就改为in window  repform.

然后执行打印预览的命令:
do   form   form1   &&调用表单
report   form   xxx   preview   windows   rpform   &&调用form1的name属性
rpform.release()



另:通用的做法
*** 这样你不仅可以改变预览窗口大小,还可以去掉可恶的“报表设计器-...”
*** *** *** *** *** *** *** *** *** *** *** *** *** *** ***

m.cWinName=sys(2015)        && 临时窗口名

Define window (m.cWinName) from 0,0 to srows(),scols() title "你的标题" system close in desktop

REPORT FORM 报表1.frx NoConsole to Print Prompt PREVIEW Window (m.cWinName)     && 打印预览

Release window (m.cWinName)
但:
Define window (m.cWinName) from 0,0 to srows(),scols() title "你的标题" system close in desktop中窗口定义的大小不好控制,目前没有解决。
搜索更多相关主题的帖子: 对话框 visible 
2011-08-19 09:03
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
得分:0 
9.0报表监听器,定制自己的报表预览窗口,完全自己定制!
2011-08-19 20:53
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
楼主契而不舍的精神值得学习!

活到老,学到老! http://www. E-mail:hu-jj@
2011-08-20 09:03



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-347923-1-1.html




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

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