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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word模板不能生成pdf文件？？

共有3187人关注过本帖树形打印复制链接主题：word模板不能生成pdf文件？？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

word模板不能生成pdf文件？？ 发帖心情

Post By：2020/12/25 19:30:00 [只看该作者]

按钮事件代码为：

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

详细错误信息：

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

pc005637

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1039 积分：12926 威望：0 精华：0 注册：2011/5/29 15:19:00

要安装OFFICE完整版 发帖心情

Post By：2020/12/25 19:31:00 [只看该作者]

要安装OFFICE完整版

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（pc005637）要安装OFFICE完整版 发帖心情

Post By：2020/12/25 20:02:00 [只看该作者]

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/26 8:56:00 [只看该作者]

2007缺少一个加载项：https://www.baidu.com/baidu?word=office2007+保存为pdf

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）2007缺少一个加载项：https://www.ba... 发帖心情

Post By：2020/12/26 14:10:00 [只看该作者]

有点蓝老师

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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/26 14:14:00 [只看该作者]

浏览器控件里显示pdf和word没有什么关系，这个是安装的Adobe Reader 组件的问题。试试安装旧版的Adobe Reader，或者卸载安装其它的pdf阅读器

李孝春

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）浏览器控件里显示pdf和word没有什么关... 发帖心情

Post By：2020/12/26 15:21:00 [只看该作者]

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

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

下一主题 >> << 上一主题

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