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


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

主题:窗口打印

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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
窗口打印  发帖心情 Post By:2013/8/20 11:38:00 [只看该作者]

在a窗口设置一个按钮预览打印b窗口的代码怎么写?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/20 11:48:00 [只看该作者]

if Forms("另外一个窗口名").Opend then
Dim doc As PrintDoc = Forms("另外一个窗口名").GernatePrintDoc()
doc.Print()
end if


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/8/20 12:14:00 [只看该作者]

不行,出现错误提示

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/20 12:39:00 [只看该作者]

If Forms("信息收录").Opened Then
Dim doc As PrintDoc = Forms("信息收录").GernatePrintDoc()
doc.Print()
End If

 回到顶部