用Excel报表实现分组打印的例子 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用Excel报表实现分组打印的例子

共有31381人关注过本帖树形打印复制链接主题：用Excel报表实现分组打印的例子

狐狸爸爸	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00	用Excel报表实现分组打印的例子 Post By：2008/12/22 9:27:00 [只看该作者] 您无权查看精华帖子
	[本帖被加为精华]

smileboy

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

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2008/12/22 9:35:00 [只看该作者]

有时间学习一下

舜风

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

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

Post By：2008/12/22 9:42:00 [只看该作者]

嘿嘿,谢谢.

参考学习

kylin

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

加好友

发短信

F6
等级：狐精帖子：3036 积分：19229 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2008/12/22 10:52:00 [只看该作者]

做一下作业去

烟酒

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

加好友

发短信

等级：婴狐帖子：51 积分：1532 威望：0 精华：0 注册：2008/11/15 21:35:00

Post By：2008/12/22 11:07:00 [只看该作者]

下来学习

xysheng

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

加好友

发短信

等级：幼狐帖子：53 积分：1698 威望：0 精华：0 注册：2008/8/31 21:43:00

Post By：2008/12/22 11:26:00 [只看该作者]

学习中,多谢

易服

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

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2008/12/22 13:27:00 [只看该作者]

能为代码加上注释更好
Dim pds As List(Of String) = DataTables("订单").GetUniqueValues("","产品")
For Each pd As String In pds
    Vars("Caption") = pd
    With Tables("订单")
        .Filter = "[产品] = '" & pd & "'"
        .Select(0,0,.Rows.Count-1,.Cols.Count-1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\订单.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Reports\订单.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next
Tables("订单").Filter = ""
Tables("订单").Select(0,0)

[此贴子已经被作者于2008-12-22 13:27:16编辑过]

菜鸟foxtable

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

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2008/12/22 13:34:00 [只看该作者]

以下是引用易服在2008-12-22 13:27:00的发言：
能为代码加上注释更好
Dim pds As List(Of String) = DataTables("订单").GetUniqueValues("","产品")
For Each pd As String In pds
    Vars("Caption") = pd
    With Tables("订单")
        .Filter = "[产品] = '" & pd & "'"
        .Select(0,0,.Rows.Count-1,.Cols.Count-1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\订单.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Reports\订单.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next
Tables("订单").Filter = ""
Tables("订单").Select(0,0)

[此贴子已经被作者于2008-12-22 13:27:16编辑过]

楼上的,老爹把鱼都给你了,就自己做来吃吧....
咱不能让老爹把鱼做熟了再吃吧? 图片点击可在新窗口打开查看