word模板不能生成pdf文件？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按钮事件代码为：

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

详细错误信息：

导出失败，因为此功能尚未安装。

你好是完整版 2007 直接生成doc文件没有问题就是生成pdf提示错误

有点蓝老师

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

换了个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编辑过]

主题：word模板不能生成pdf文件？？