Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") Dim tmp As String = ProjectPath & "Attachments\开piao申请表.xls" Dim rpt As String = ProjectPath & "Reports\开piao申请表.pdf" Dim Book As New XLS.Book(tmp) Book.Build() Book.SaveToPDF(rpt) '保存为pdf文件 wbr.AddRess = rpt