在哪里打印？打印什么报表？

如果是excel模板，合成条件，然后设置进去 http://www.foxtable.com/webhelp/scr/2626.htm

老师，我想在设计的窗口中打印，已经筛选出了想要某一类记录，想在这些筛选出的记录中，通过选择，选出要打印的记录，点打印按钮打印。是用excel 打印的。

Dim t As Table = Tables("表A")
Dim filter As String = "1=2"
For Each r As Row In t.GetCheckedRows
    filter &= " or [_Identify] = " & r("_Identify")
Next
msgbox(filter)

老师好，请问和下面的代码合并应该如何写代码呢？

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("打印审批表_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "采购方式 Like " & txt
End If
Tables("物品申报").ShowCheckBox=True

打印代码

Dim t As Table = Tables("表A")
Dim filter As String = "1=2"
For Each r As Row In t.GetCheckedRows
    filter &= " or [_Identify] = " & r("_Identify")
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & filter & ">"  \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

要想把下面的代码合并在一起怎么办呢？合并到打印代码中。

打印代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购审批表.xlsx")
Book.Build()
Book.Save(ProjectPath & "Reports\\采购审批表.xlsx")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xlsx"
Proc.Start()

筛选代码：

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("打印审批表_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "采购方式 Like " & txt
End If

直接写在一起就可以了，具体问题，请做一个实例发上来测试。

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("打印审批表_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "采购方式 Like " & txt
End If

Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购审批表.xlsx")
Book.Build()
Book.Save(ProjectPath & "Reports\\采购审批表.xlsx")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xlsx"
Proc.Start()

我设置把下面的代码放在打印按钮的事件中，但打印的记录还是要通过选择才行。能不有加个逻辑列，来控制要打印哪条记录呢。

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("打印审批表_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "采购方式 Like " & txt
End If

Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购审批表.xlsx")
Dim fl As String = ProjectPath & "Reports\\采购审批表.xlsx"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作
Proc.Start()