以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于生成pdf 的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66494)

--  作者:jswjyjf
--  发布时间:2015/4/8 11:21:00
--  关于生成pdf 的问题

软件中  

Tables("订单").SavePDF("c:\\data\\orders.pdf")

 是可以生成pdf 文档的

可是 以下代码 不行 出错了

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\\出库单.pdf"
Book
.Build() \'生成细节区
Book
.SaveToPDF(fl) \'保存为PDF文件
Dim
Proc As New Process \'打开PDF文件
Proc
.File = fl
Proc
.Start()


--  作者:Bin
--  发布时间:2015/4/8 11:22:00
--  
出什么错?  提示:为了能打开生成的PDF文件,请先安装PDF阅读软件,例如:Adobe Reader X
--  作者:狐狸爸爸
--  发布时间:2015/4/8 11:23:00
--  

我测试没有出错

 


--  作者:jswjyjf
--  发布时间:2015/4/8 11:25:00
--  

Tables("订单").SavePDF("c:\\data\\orders.pdf")

 是可以生成pdf 文档的 



--  作者:狐狸爸爸
--  发布时间:2015/4/8 11:27:00
--  

我测试没有错:

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\\出库单.pdf"
Book
.Build() \'生成细节区
Book
.SaveToPDF(fl) \'保存为PDF文件
Dim
Proc As New Process \'打开PDF文件
Proc
.File = fl
Proc
.Start()

 

 

你这边出现什么错误提示?


--  作者:jswjyjf
--  发布时间:2015/4/8 14:06:00
--  

错误代码 如下

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130408140522.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2015/4/8 14:08:00
--  

你系统问题吧,我测试ok.

这是excel的错误提示,你百度一下这个错误提示吧。


--  作者:jswjyjf
--  发布时间:2015/4/8 14:09:00
--  

我是office2007

 


--  作者:狐狸爸爸
--  发布时间:2015/4/8 14:17:00
--  
windows 8?
--  作者:jswjyjf
--  发布时间:2015/4/8 14:46:00
--  

xp