主题：[求助]Excel报表保存为PDF，第一列保存不了，也不能显示?

Excel报表保存为PDF，第一列保存不了，也不能显示?是何问题？

例子在这儿的4楼

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=58871

已解决，用Excel VBA： WorkBook.ExportAsFixedFormat

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

采用下面的方案将Excel转成PDF并显示到webBrowser：

Dim wbr As WinForm.WebBrowser = Forms(Args(0)).Controls("WebBrowser1")
Dim tbx As WinForm.TextBox = Forms(Args(0)).Controls("TextBox1")

Dim tm As String = ProjectPath & "Attachments\v_2VW BREST CARAVELLE 2014.xls"
tbx.Text = tm

Dim fl As String = ProjectPath & "Reports\v_2VW BREST CARAVELLE 2014.pdf"

Dim App As New MSExcel.Application
try  
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(tm)
    '创建Excel文件对应的PDF文件
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, fl, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    wbr.Address = fl
    app.quit
catch ex As exception
    app.quit
End try

老出现：

此主题相关图片如下：捕获错误.jpg

不希望出现此框，有何办法？ 谢谢！

  参考例子

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=61717&replyID=416043&skin=1

已解决如下：

在wb.ExportAsFixedFormat（）之前加上：

wb.saved = True

谢谢。