Dim wbr
As WinForm.WebBrowser
= e.Form.Controls("WebBrowser1") Dim tmp
AsString =
ProjectPath & "Attachments\资料卡.xls" Dim rpt
AsString =
ProjectPath & "Reports\资料卡.pdf" Dim Book
As New XLS.Book(tmp) Book.Build() Book.SaveToPDF(rpt)
'保存为pdf文件 wbr.AddRess = rpt