以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  模板打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121380)
--  作者：LTHERO
--  发布时间：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

会出现系统找不到指定文件，可是文件都在啊！什么情况？
--  作者：有点甜
--  发布时间：2018/7/4 22:52:00
--  

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

 

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

 

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

 
--  作者：LTHERO
--  发布时间：2018/7/5 9:50:00
--  
1、文件产出正常
2、代码测试没问题

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

报这个错误，如图所示：
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180705094920.png
图片点击可在新窗口打开查看
--  作者：LTHERO
--  发布时间：2018/7/5 9:50:00
--  
我百度查了这种问题的解决方法，试过了，还是报这个错误，很尴尬。
--  作者：有点甜
--  发布时间：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。