主题：打印选中记录

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

 

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

 

合成条件，设置进去 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 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 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()

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

修改模板 http://www.foxtable.com/webhelp/scr/0201.htm

 

不会做的话，做个foxtable实例发上来测试。