- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- word模板不能生成pdf文件？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159416)
-- 发布时间：2020/12/25 19:30:00
-- word模板不能生成pdf文件？？
按钮事件代码为：
Dim tm As String = ProjectPath & "Attachments\\入党申请谈话通知书.doc"
Dim f1 As String = ProjectPath & "Reports\\入党申请谈话通知书.doc"
Dim f2 As String = ProjectPath & "Reports\\入党申请谈话通知书.pdf"
Dim wrt As New WordReport(tm,f1) \'注意这里无需指定表名
wrt.AddDataTable("党员信息","智慧党建","Sel ect * from {党员信息} where 姓名 = \'" & Vars("姓名") & "\'")
wrt.Build()
wrt.SaveToPDF(f2) \'保存为PDF文件
wrt.Quit() \'退出
已经安装了Adobe Reader XI 运行按钮代码提示如下错误 并没有生成pdf文件
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,事件登记,Button3,Click
详细错误信息：
导出失败，因为此功能尚未安装。
-- 发布时间：2020/12/25 19:31:00
-- 要安装OFFICE完整版
要安装OFFICE完整版
-- 发布时间：2020/12/25 20:02:00
-- 回复：（pc005637）要安装OFFICE完整版
你好 是完整版 2007 直接生成doc文件没有问题 就是生成pdf提示错误
-- 发布时间：2020/12/26 8:56:00
--
2007缺少一个加载项：https://www.baidu.com/baidu?word=office2007+保存为pdf
-- 发布时间：2020/12/26 14:10:00
-- 回复：（有点蓝）2007缺少一个加载项：https://www.ba...
有点蓝老师
foxtable支持的Word最新版本是多少呢？
按照老师的提示 安装了这个插件之后 可以显示PDF格式文件了 但是会出现一个问题 就是显示十五秒不到就一片空白了 何解？
此主题相关图片如下：屏幕截图 2020-12-26 140900.png
按钮事件代码如下：
Dim tm As String = ProjectPath & "Attachments\\入党申请谈话通知书.doc"
Dim f1 As String = ProjectPath & "Reports\\入党申请谈话通知书.doc"
Dim f2 As String = ProjectPath & "Reports\\入党申请谈话通知书.pdf"
Dim wrt As New WordReport(tm,f1) \'注意这里无需指定表名
wrt.AddDataTable("党员信息","智慧党建","Se lect * from {党员信息} where 姓名 = \'" & Vars("姓名") & "\'and 单位名称 = \'" & Vars("单位") & "\'")
wrt.Build()
wrt.SaveToPDF(f2) \'保存为PDF文件
\'wrt.SaveToMHT(f2)
wrt.Quit() \'退出
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
\'wb2.OfficeToolBar = False
wb2.Address=f2
点击按钮后代码运行效果gif
此主题相关图片如下：pdf.gif
-- 发布时间：2020/12/26 14:14:00
--
浏览器控件里显示pdf和word没有什么关系，这个是安装的Adobe Reader 组件的问题。试试安装旧版的Adobe Reader，或者卸载安装其它的pdf阅读器
-- 发布时间：2020/12/26 15:21:00
-- 回复：（有点蓝）浏览器控件里显示pdf和word没有什么关...
换了个9版本系列的pdf 还是状况依旧 显示不到十五秒就又自动消失了
【刚刚测试：我不在这个web浏览器组件中去显示，直接采用打开文件的方式打开pdf文件，也是十五秒不到就自动关闭了】
系统是Windows10企业版64位 安装了office2007 pdf xi
【打开pdf闪退解决办法：】
适用于 Adobe Acrobat Reader XI （本人亲测）
现象描述：出现正常程序界面后不到30秒自动关闭
解决方法：
方法一；断网有用！估计是官方后台连接搞得鬼！
方法二： 开始-控制面板-系统和安全-Windows防火墙-高级设置-出站规则-新建规则-程序-下一步-此程序路径-下一步-阻止连接-何时应用该规则 ？（全选）-下一步-自定义一个名称-完成。重启！
采用mht格式 代码如下的话 运行代码 项目直接闪退了 求解
Dim tm As String = ProjectPath & "Attachments\\入党申请谈话通知书.doc"
Dim f1 As String = ProjectPath & "Reports\\入党申请谈话通知书.doc"
Dim mht As String = ProjectPath & "Reports\\入党申请谈话通知书.mhtml"
Dim wrt As New WordReport(tm,f1) \'注意这里无需指定表名
wrt.AddDataTable("党员信息","智慧党建","Sele ct * from {党员信息} where 姓名 = \'" & Vars("姓名") & "\'")
wrt.Build()
wrt.SaveToMHT(mht)
wrt.Quit
e.Form.Controls("WebBrowser1").Address = mht
[此贴子已经被作者于2020/12/26 15:32:22编辑过]
-- 发布时间：2020/12/26 15:43:00
--
我测试没有问题，上传实例说明
Dim tm As String = ProjectPath & "Attachments\\出库单.doc"
Dim fl As String = ProjectPath & "Reports\\出库单.doc"
Dim mht As String = ProjectPath & "Reports\\出库单.mhtml"
Dim wrt As New WordReport(tm,fl)
wrt.AddDataTable("出库","","Select * from {出库} where 出库单编号= \'CK-20030726002\'") \'添加父表
wrt.AddDataTable("出库明细","","Select * from {出库明细} where 出库单编号= \'CK-20030726002\'") \'添加子表
wrt.AddRelation("出库","出库单编号","出库明细","出库单编号") \'建立关联
wrt.Build()
wrt.SaveToMHT(mht)
wrt.Quit
e.Form.Controls("WebBrowser1").Address = mht