主题：如何保存成PDF

不明白你说什么，执行下面的代码。

 

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 '引用单个单元格
    msgbox(1)

    wb.save

    msgbox(2)
    'App.Visible = True
    msgbox(3)
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, f2, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    msgbox(4)
catch ex As exception
    msgbox(5)
    app.quit
End try

 

试了，提示信息顺序为：1、5然后弹出是否保存对话框，单击“是”提示“文档未保存”

 

那就说明Save的时候，就报错了。

 

你调出 任务管理器，把里面的 excel.exe 进程全部结束

这个试过了，每执行完一次这个代码进程里就会有一个EXCEL，不会关闭。所以我每次都结束该进程进行测试，但故障仍旧。可说来也怪，如果我不放这个LOGO，就啥事没有，都正常。

 

1、Office的问题；重新安装

 

2、电脑权限的问题；用管理员身份运行

 

3、电脑问题；你可以去其它电脑测试，肯定是正常的

1、是管理员登录

2、OFFICE重新安装过

3、在公司N台电脑测试过

都有问题，公司电脑环境都是WIN7+office2007,我再试试吧，谢谢老师。

 1、是用管理员权限啊，右键，用管理员身份运行；

 

 2、安装Office的时候，重新下载一个，比如Office2010；

 

 3、做完1、2步以后，做一个空的项目，做简单的报表，就是弄一个图片进去，测试效果。

都试过，就OFFICE2010没装，因为公司整体环境都是OFFICE2007。

我试过在模板里新建一个图片的页眉，但没成想生成新的EXCEL文件后页眉没有了

 

页眉，你可以在生成报表之前设置一下，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60526&authorid=0&page=0&star=3

 

甜老师这个方法应该可取，我看了那个参考有一点不明白请老师指点：

我在模板中的页眉（左侧）插入了图片。中间右侧什么都不放，这个代码应该如何改？这个&G代表着什么？

With Sheet.PrintSetting
    .Header = "&L&D &C&T&G &R&F"
End With