[求助]狐之爸：分组打印按钮的问题还是没有解决呀 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]狐之爸：分组打印按钮的问题还是没有解决呀

共有23511人关注过本帖树形打印复制链接主题：[求助]狐之爸：分组打印按钮的问题还是没有解决呀

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/3/14 20:21:00 [显示全部帖子]

1、
.Select(0,0,.Rows.count-1,.Cols.Count-1)

2、
Tables("工资").Filter = ""

我原来随便写的，有一些错误的图片点击可在新窗口打开查看

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/3/14 22:44:00 [显示全部帖子]

Dim Arys As List(Of String())
Arys = DataTables("当月在职工资表").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
    With Tables("当月在职工资表")
        .Filter = "[是否停发] = False And [所在单位] = Ary(0) And [所在部门] = Ary(1)"
        .Select(0,0,.Rows.Count -1,.Cols.Count -1)
        Dim Book As New XLS.Book(ProjectPath & "Attachments\工资.xls")
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Book.Build()
        Book.Save(ProjectPath & "Reports\工资.xls")
        Dim Proc As New Process
        Proc.File = ProjectPath & "Reports\工资.xls"
        proc.Verb = "Print"
        Proc.Start()
    End With
Next