主题：打印选择条件

 这里的条件没有起限制作用，可以帮我改改吗，通过选择报价日期和名称来选择打印记录
Dim ww As String =e.Form.Controls("ComboBox1").Value
Dim rq As Date = e.Form.Controls("DateTimePicker1").Value

Dim Book As New XLS.Book(ProjectPath & "Attachments\报价表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\报价表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Filter As String

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If      
        Filter = Filter & "报价日期 = '" & .Value & "'"  
 End If
End With
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "旺旺QQ = '" & .Value & "'"
    End If
End With

If filter > "" Then
    Sheet(3,19).Value = "<" & filter & ">"
Else
    Sheet(3,19).Value = "<all>"
End If
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 Filter = Filter & "报价日期 = #" & format(.Value,"M/d/yyyy") & "#"   

 还是不行

直接设置要打印的表的 Filter

 意思是这样吗？
Dim ww As String =e.Form.Controls("ComboBox1").Value
Dim rq As Date = e.Form.Controls("DateTimePicker1").Value

Dim Book As New XLS.Book(ProjectPath & "Attachments\报价表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\报价表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Filter As String

With e.Form.Controls("DateTimePicker1")
  Tables("报价单").Filter = ""
End With
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "旺旺QQ = '" & .Value & "'"
    End If
End With

If filter > "" Then
    Sheet(3,19).Value = "<" & filter & ">"
Else
    Sheet(3,19).Value = "<all>"
End If
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 可以不要对表格进行选择，只在打印的EXCEL版面显示吗

 

不会做，请上传具体的例子。