Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打印的问题


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

主题：[求助]打印的问题
帅哥哟，离线，有人找我吗？
ciker
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：533 威望：0 精华：0 注册：2014/1/28 11:25:00 		[求助]打印的问题  发帖心情 Post By：2014/4/22 8:17:00 [只看该作者]

piao据打印中，是不是只能当前窗口才能打印？

能不能把下面代码中的 e.form 改为 forms("窗口名")？想在某窗口中点击按钮，直接进入另一窗口的打印预览状态。 试了一下，不行。

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以的,前提是该窗口打开了.
if forms("窗口名").Opened then
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()
else
  messagebox.show("该窗口未打开")
end if


或者

forms("窗口名").ShOW
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
ciker
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：533 威望：0 精华：0 注册：2014/1/28 11:25:00 		  发帖心情 Post By：2014/4/22 9:17:00 [只看该作者]

谢谢！

刚试验了一下代码：

forms("窗口名").ShOW
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()

窗口能打开，但不能直接进入打印预览状态
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

说明你这个是模式窗口,SHOW之后不会执行后面的代码.

你可以放到窗口AlterLoad事件

或者直接用方法1算了
 回到顶部
帅哥哟，离线，有人找我吗？
ciker
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：533 威望：0 精华：0 注册：2014/1/28 11:25:00 		  发帖心情 Post By：2014/4/22 9:37:00 [只看该作者]

谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 4 次数据查询