Foxtable(狐表)用户栏目专家坐堂 → Excel文件SaveToPDF出错


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

主题:Excel文件SaveToPDF出错

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 21:14:00 [显示全部帖子]

SaveToPDF 必须是MS Office 2007 以上才有效,MS Office 2003不支持


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:48:00 [显示全部帖子]

 excel的转换,是需要平台支持的。

 

Dim ExcelToPDF As String = Args(0)    'Args(0) = 窗口名
Dim wbr As WinForm.WebBrowser = Forms(Args(0)).Controls("WebBrowser1")

Dim tm As String = ProjectPath & "Attachments\v_2VW BREST CARAVELLE 2014.xls"
Dim fl As String = ProjectPath & "Reports\v_2VW BREST CARAVELLE 2014.pdf"
Dim Book As New XLS.Book(tm)
try
    Book.SaveToPDF(fl) '保存为PDF文件
    wbr.address = fl
catch ex As exception
    msgbox("出错了")
End try


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 22:06:00 [显示全部帖子]

 出错说明你没有 MS Office 2007 以上

 回到顶部