Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Select Case e.Form.Controls("ComboBox1").value
Case "客户一览表"
Dim tmp As String = ProjectPath & "Attachments\客户一览表.xls"
Dim rpt As String = ProjectPath & "Reports\客户一览表.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
wbr.AddRess = rpt
Case "客户合同明细表"
Dim tmp As String = ProjectPath & "Attachments\客户合同明细表.xls"
Dim rpt As String = ProjectPath & "Reports\客户合同明细表.xls"
Dim Book As New XLS.Book(tmp)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dt1 As Date =e.Form.Controls("DateTimePicker1").value
Dim dt2 As Date =e.Form.Controls("DateTimePicker2").value
Sheet(3,8).Value = "<合同日期>= #" & dt1 & "# and 合同日期<= #" & dt2 & "#>"
Book.Build()
Book.Save(rpt)
wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
wbr.AddRess = rpt
End Select
补充说明:到时候可能有N个报表可以通过该窗口的webbrowser尽心呈现,所以如何指定要打印当前的这个报表。