Foxtable(狐表)用户栏目专家坐堂 → WebBrowser打印问题


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

主题:WebBrowser打印问题

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
WebBrowser打印问题  发帖心情 Post By:2019/2/13 15:11:00 [只看该作者]

请教老师

窗口中的WebBrowser控件,通过代码把WORD文件,从服务器FTP已下载到本地,并在WebBrowser控件中显示,

 

虽然显示了WORD的工具栏,但没有打印功能,这里如何设置按钮代码,先显示打印机窗口,根据选择再执行打印WebBrowser里面的WORD文件?

 

1. 用Ctrl + P 是可以打印了,打印完后,关闭窗口报错“请求的资源在使用中。 (异常来自 HRESULT:0x800700AA)” ,

    加入以下代码,也不行

    Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
    wbr.Address = Nothing

 

2.如果用下面代码打印,也能打印,但是由于New Process,出现空白打开的WORD界面

Dim rt As Row = Tables("三级复核工作表").Current
Dim st As String = rt("文件名")
Dim Proc As New Process
Proc.File = "F:\LSXZWJ\" & st
Proc.Verb = "Print" '指定动作 
Proc.Start()


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


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

我这样写代码打印没问题

 

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.print


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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2019/2/13 16:37:00 [只看该作者]

老师,您指导的代码没有问题,现在打印完成后,关闭窗口时依然出现  [关闭窗口报错“请求的资源在使用中。 (异常来自 HRESULT:0x800700AA)”],如果不执行打印不会报错。

 

这样的问题,应该检查哪里?


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


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

1、我测试没问题。

 

2、请具体做一个出错的例子发上来测试。


 回到顶部