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

以下是引用易服在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编辑过]

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

主题：用Excel报表实现分组打印的例子