(已解决)运行报表时,去掉打印预览上面的“报表设计器-*.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中窗口定义的大小不好控制,目前没有解决。