主题：如何保存成PDF

vba另存为pdf代码参考

Dim App As New MSExcel.Application
try  
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
    '创建Excel文件对应的PDF文件
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\test.pdf", 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

App.Visible = True
wb.saveas(fl)

改成

wb.save

 例子发上来，代码不可能有问题。

 logo图片如何加的，做个简单例子重现错误。

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

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

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

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