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()
这样的打印只能打印选定行的数据,如何写打印表中复合条件的数据