- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用Excel报表实现分组打印的例子 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1472)
-- 发布时间：2008/12/22 9:27:00
-- 用Excel报表实现分组打印的例子
做了一个用Excel报表实现分组打印的例子，标题也能自动变化，原理很简单的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7_1222.zip |
执行过程会有闪烁，但是不影响使用。
你可以在这个基础上轻松实现分组统计报表，大家自己改一下，就算是作业吧。
-- 发布时间：2008/12/22 9:35:00
--
有时间学习一下
-- 发布时间：2008/12/22 9:42:00
--
嘿嘿,谢谢.
参考学习
-- 发布时间：2008/12/22 10:52:00
--
做一下作业去
-- 发布时间：2008/12/22 11:07:00
--
下来学习
-- 发布时间：2008/12/22 11:26: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编辑过]
-- 发布时间：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)
楼上的,老爹把鱼都给你了,就自己做来吃吧....能为代码加上注释更好
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编辑过]
咱不能让老爹把鱼做熟了再吃吧?
-- 发布时间：2008/12/22 15:15:00
--
学习中.......
-- 发布时间：2008/12/22 15:43:00
--
学习！！