主题：打印选中记录

 老师您好，我想在窗口绑定的表中，先筛选出符合条件的记录，然后通过.Showcheckbox选中需要打印的记录，点击窗口上的打印按钮打印，请问这个代码怎么写呢。

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

 

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

 

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

合成条件，设置进去 http://www.foxtable.com/webhelp/scr/2626.htm

 

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()

具体问题，请做一个foxtable项目发上来测试。