For Each a As Row In Tables("备件出入库") ' 判断是否打印值,如果是false 则循环标记为true
If a("是否打印") = True Then
e.Cancel = True
Exit For
Else
a("是否打印") = True
End If
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\入库单.xls")
Dim fl As String = ProjectPath & "Reports\入库单.xls"
Book.Build() '生成细节区
' Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
这样的打印只能打印选定行的数据,如何写打印表中复合条件的数据
老师 这种方式只能打印选定的行,我的目的是打印窗口表中数据,不用再取选定某行(窗口表的数据是经过特殊筛选)。我的思路有三个、1、在打印时先再次筛选,打印表中所有的数据。2、提起表中的符合条件的数据,填充到模板中。3、做专业报表!
你理解错了。2楼用法和选定行没有任何关系。就是用来打印指定条件的数据的。
<ALL>就是适合上面的第1点,打印所有筛选后的数据
<某某列='某某值'> 就是适合上面的第2点,打印符合条件的数据