Foxtable(狐表)用户栏目专家坐堂 → 自定义函数为何先执行?


  共有2840人关注过本帖树形打印复制链接

主题:自定义函数为何先执行?

帅哥哟,离线,有人找我吗?
scott518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2488 威望:0 精华:0 注册:2011/11/4 17:32:00
自定义函数为何先执行?  发帖心情 Post By:2014/6/3 18:23:00 [只看该作者]

下面的代码是在一个打印参数设置窗口中确定按钮的代码,

 

'---打印参数赋值给全局变量
prt_PageL = e.Form.Controls("Num_Left").Value  '页边距
prt_PageR = e.Form.Controls("Num_Right").Value '页边距
prt_PageT = e.Form.Controls("Num_Top").Value '页边距
prt_PageB = e.Form.Controls("Num_Bottom").Value '页边距
prt_Landscape = e.Form.Controls("Rad_Landscape").checked
Printer = e.Form.Controls("Comb_Printer").Value
e.Form.Close  ‘关闭窗口在运行函数前
Functions.Execute(Mtb)  ’打印报表

 

问题是执行函数打印预览时这个窗口不会关闭,必须等关闭打印预览窗口后参数设置窗口才会关闭,为什么会这样?上面红色的代码明明在函数执前关闭窗口。谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/3 19:21:00 [只看该作者]

 把这句代码放在 afterclose 事件执行 Functions.Execute(Mtb)  ’打印报表

 回到顶部
帅哥哟,离线,有人找我吗?
scott518
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2488 威望:0 精华:0 注册:2011/11/4 17:32:00
  发帖心情 Post By:2014/6/3 20:23:00 [只看该作者]

谢谢!还是不可以。做了个简单的例子。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印问题.foxdb

 

 


图片点击可在新窗口打开查看此主题相关图片如下:print.gif
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/3 20:36:00 [只看该作者]

 没办法,只能变通一下处理了。

 

Vars("Print_Stop") = False '允许打印
e.Form.baseform.left = -1000
e.Form.baseform.Top = -1000
e.Form.Close
Functions.Execute("订单")


 回到顶部