主题：如何保存成PDF

在下面代码中如何把保存好的“结算清单”生成PDF?

Dim Book As New XLS.Book(ProjectPath & "Attachments\通用结算清单.xls")
Dim f2 As String =SpecialFolder.DesktopDirectory  & "\" & Date.Today() & "结算清单.pdf"
Dim fl As String =SpecialFolder.DesktopDirectory  & "\" & Date.Today() & "结算清单.xls"
Book.Build()
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Ws.Range("B:B")

Rg.EntireRow.AutoFit
rg .WrapText =True '引用单个单元格
App.Visible = False

wb.save

App.Quit
MessageBox.Show("结算清单已经生成,请到桌面打开!", "提示")

老师帮忙看看下列代码有什么问题？后半部分调整EXCEl格式的代码执行完后提示“代码文档未保存”，如何解决？

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\通用结算清单.xls")
Dim fl As String =SpecialFolder.DesktopDirectory  & "\" & Date.Today() & "结算清单.xls"
Dim f2 As String =SpecialFolder.DesktopDirectory  & "\" & Date.Today() & "结算清单.pdf"
Book.Build()'生成细节区
Book.Save(fl) '把生成完细节区的EXCEL保存

'以下代码是把生成excel再打开设置其格式及样式
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Ws.Range("B:B")
Rg.EntireRow.AutoFit '自动调整行宽
rg .WrapText =True '引用单个单元格
App.Visible = True
wb.saveas(fl)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, f2, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
App.Quit
catch ex As exception
app.quit
End try

 

改了还是错。执行完上面代码后直接弹出窗口问是否保存， 点击是的时候就出现“文档未保存”

我觉得也没有问题，其他的模板都可以正常执行，唯独这个部是报错。

我自己做的例子好使啊，郁闷在这，难道跟模板有关？

我在EXCEL模板的左上角加了一个LOGO图片就会报这种错误，图片删除就一点错误也没有，老师帮忙分析下是什么问题？

由于这个数据较多小弟不方便上传例子，忘见谅，老师帮忙分析下即可

LOGO图片是复制粘贴到模板的左上角的，我做了一个简单例子老师看看吧。例子中点击“专业报表---》生成报表即可错误重现

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.rar

WIN7 Excel2007有这问题

此主题相关图片如下：3345.png

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：Build
详细错误信息：
文档未保存。