主题：[求助]请问狐表可以 自动排版，打印 EXCEL报表么？

你有设置<GroupFooter, 表, 部门, 1> 么？设置就不应该这样的。

 看了一下，没办法的。你用的是标签打印，一行打印3个数据。

 但是标签无法得知其部门是否相同的。也就是如果部门人数如果不是3的倍数，就会出现错乱。

 或者你可以这样去变通：

1、在生成报表之前，处理一下表格；

2、如果部门人数不是3的倍数，就自动增加1行/2行；

3、生成报表；

4、删除那些添加的空行。

 16楼说错了，分组打印以后。设一下标签就行了。<职工总库,@3,9>

 按条件打印，代码如下

Dim ls As List(Of String) = DataTables("表B").GetValues("第一列", "第一列 is not null")
Dim filter As String = "1=2"
For Each s As String In ls
    filter += " or 工组 = '" & s & "'"
Next
filter = "<" & filter & ">"
Dim Book As New XLS.Book(ProjectPath & "xxx.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\xxx.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,19).Value = filter  '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()