Foxtable(狐表)用户栏目专家坐堂 → 如何打印当前窗口


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

主题:如何打印当前窗口

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


加好友 发短信
等级:二尾狐 帖子:513 积分:3935 威望:0 精华:0 注册:2012/6/26 13:23:00
如何打印当前窗口  发帖心情 Post By:2013/3/27 11:34:00 [只看该作者]

通过菜单,如何编写代码能将当前窗口打印出来。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/27 12:14:00 [只看该作者]

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()

 

参考:

http://www.foxtable.com/help/topics/1590.htm

 


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


加好友 发短信
等级:二尾狐 帖子:513 积分:3935 威望:0 精华:0 注册:2012/6/26 13:23:00
  发帖心情 Post By:2013/3/27 12:58:00 [只看该作者]

以上代码只能在窗口控件中可运行,但是在菜单中就运行不了。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/27 13:05:00 [只看该作者]

If Forms("窗口名").Opened Then
   Dim doc As PrintDoc = Forms("窗口名").GernatePrintDoc()
   doc.Print()
End if

 回到顶部