主题：[速求] 自动按部门分组并分页打印工资单代码

之前有人的问题和你一模一样。
不想编码的话，就单独建立一个部门表，用打印关联表的形式实现：

http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1738


http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1741&replyID=12372&skin=1

http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1748&replyID=&skin=1

1、可以自动换页，只需将部门的细节区设置为每页一个即可。
2、一次即可打印完成，不存在要先筛选再打印的问题。

Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
      With Tables("工资")
           .Filter = 条件
           .Select(0,0,.Rows-1,.Cols-1)
           '打印excel报表的代码
      End With
Next
Tables("工资")  = ""