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

此主题相关图片如下：工资.jpg


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

  最好能回案例  谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资打印.rar

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

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、单位结构完全不同：如我们单位的下属子单位有N多，并非简单的只有一个总部（或公司）

2、如果简单的先筛选单位，再按部门自动筛选而不分页，整工资表将会非常的复杂而杂乱（因有些部门人数太少）

3、如果分别按部门筛选并打印，如我们有几十个部门，得需多久才能打印完工呢？

所以请大家另想一办法帮我解决此难题:
如果只点一下按钮便能全部依照部门 分组、分页打印（或先单位筛选后再点按钮能依照 部门分组、分页打印）

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

不行呀，能否帮做下案例文件呢

如下设置

此主题相关图片如下：图片.jpg.jpg



结果如下


此主题相关图片如下：图片.jpg.jpg.jpg

不好意思。问题已解决了

已分页，只是没有看到换页符号，以为没有成功

现虽然能简单打印表，不过我却为此要建N多的关联，且也很麻烦呵

所以还是想请：谁能帮我用

Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
               ……
的方式做一按钮代码？

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("工资")  = ""

他爸的代码有问题吧:
首先:           .Select(0,0,.Rows-1,.Cols-1)
编译报错:没有定义"-"