试试,只执行这段代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")Dim fl As String = ProjectPath & "Reports\出库单.pdf"Book.Build() '生成细节区Book.SaveToPDF(fl) '保存为PDF文件
如果还不行,看看是否这个原因 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49053&skin=0