Foxtable(狐表)用户栏目专家坐堂 → 关于SaveToPdF 出错问题


  共有1937人关注过本帖平板打印复制链接

主题:关于SaveToPdF 出错问题

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


加好友 发短信
等级:婴狐 帖子:18 积分:333 威望:0 精华:0 注册:2012/11/25 18:24:00
关于SaveToPdF 出错问题  发帖心情 Post By:2016/3/26 22:49:00 [只看该作者]

我的操作系统是 win7 SP1
office 是 2007

saveToPdf 函数工作一直良好

最后这次版本升级之后
突然 之前的 代码中的
Savetopdf 开始报错如下:

无法将类型 Microsoft.Office.Interop.Excel.AplicationClass 的 COM对象
强制转化为接口类型 Microsoft.Office.Interop.Excel.Application

请指教,我现在该怎么处理这个问题。代码如下:
 Dim templet As String
        Dim report As String
        
        Dim name As String
        name = "Reports\出库单-" & r("编号") & ".pdf"
        
        templet = ProjectPath & "Attachments\出库单模板.xls"
        
        report = ProjectPath & name  

        Dim Book As New XLS.Book(templet) '打开模板
        
        Dim fl As String = report
        
        'Dim Sheet As XLS.Sheet = Book.Sheets(0)
  
        Book.Build() '生成报表
        Book.SaveToPDF(fl) 
      

       
       
        Dim Proc As New Process 
        Proc.File = fl
        Proc.Start()


 回到顶部