Foxtable(狐表) → 用户栏目 → 专家坐堂 → 模板打印问题


  共有2010人关注过本帖树形打印复制链接

主题：模板打印问题
帅哥哟，离线，有人找我吗？
LTHERO
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		模板打印问题  发帖心情 Post By：2018/7/4 21:17:00 [只看该作者]

打印代码如下：

If  Tables("托运单开单记录_table1").Current Is Nothing Then
    Return
Else
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() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
End If

会出现系统找不到指定文件，可是文件都在啊！什么情况？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/4 22:52:00 [只看该作者]

1、doc、pdf是否都正常生产？

 

2、单独测试这段代码有没有问题？

 

Dim Proc As New Process '打开PDF文件
Proc.File = "d:\test.pdf"
Proc.Start()

 
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2018/7/5 9:50:00 [只看该作者]

1、文件产出正常
2、代码测试没问题

在我自己的电脑上测试没问题，在公司电脑就报错！

报这个错误，如图所示：
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180705094920.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2018/7/5 9:50:00 [只看该作者]

我百度查了这种问题的解决方法，试过了，还是报这个错误，很尴尬。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/5 10:10:00 [只看该作者]

1、

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1

 

2、如果1无法修复，就重新安装一下wps。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询