主题：[求助]报表模板设计时的条件表达式

excel模板发上来

找到原因了，代码中日期输入框在复制的时候没有改过来。

另外：在窗口形式的报表中，有一个按钮“打印报表”，希望它执行ctrl+P的动作，代码是多少？

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尽心呈现，所以如何指定要打印当前的这个报表。

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim Proc As New Process
Proc.File = wbr.Address.
Proc.Verb = "Print" '指定动作
Proc.Start()

不知道如何确定这个文件名。