Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\资料卡.xls"
Dim rpt As String = ProjectPath & "Reports\资料卡.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) '保存为pdf文件
wbr.AddRess = rpt
这段代码经过多次测试后,在win8。1下,可以保存,但无法自动打开。
测试过很多次,执行代码后,发现后台自动打开excle后,就无法继续调用了,用“任务管理器”关闭excle后,显示:远程过程调用失败。 (异常来自 HRESULT:0x800706BE)
用“任务管理器”关闭excle后,在不关闭“任务管理器”下,再重复执行一边上面的代码后,居然可以了。
奇就奇在,关闭“任务管理器”后,再重复执行又不行了!