- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中打不开office文档 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49843)
-- 发布时间：2014/4/24 21:00:00
-- [求助]窗口中打不开office文档
代码这样：
im wbr As WinForm.WebBrowser
= e.Form.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl1 As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" \'指定目标PDF文件
Dim wrt As New WordReport(Tables("出库"),tm,fl1) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
wbr.AddRess = fl2
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl1 As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" \'指定目标PDF文件
Dim wrt As New WordReport(Tables("出库"),tm,fl1) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
wbr.AddRess = fl2
打开之后这样：
此主题相关图片如下：qq截图20140424205838.png
窗口中没显示 但是Pdf软件打开了 并能看到excle表
我用的win8系统
-- 发布时间：2014/4/24 21:09:00
--
执行以下office.reg文件
1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。
-- 发布时间：2014/4/24 21:49:00
--
已经执行了，不可以。但是找到问题所在了，win8系统自带一个pdf阅读软件，这个不可以，重新下载一个然后设置成默认就可以了