[浏览完整版]
标题：用Excel报表实现分组打印的例子
1楼
狐狸爸爸 发表于：2008/12/22 9:27:00做了一个用Excel报表实现分组打印的例子，标题也能自动变化，原理很简单的：
执行过程会有闪烁，但是不影响使用。
你可以在这个基础上轻松实现分组统计报表，大家自己改一下，就算是作业吧。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7_1222.zip |
执行过程会有闪烁，但是不影响使用。
你可以在这个基础上轻松实现分组统计报表，大家自己改一下，就算是作业吧。
2楼
smileboy 发表于：2008/12/22 9:35:00有时间学习一下
3楼
舜风 发表于：2008/12/22 9:42:00嘿嘿,谢谢.
参考学习
参考学习
4楼
kylin 发表于：2008/12/22 10:52:00做一下作业去
5楼
烟酒 发表于：2008/12/22 11:07:00下来学习
6楼
xysheng 发表于：2008/12/22 11:26:00学习中,多谢
7楼
易服 发表于：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编辑过]
8楼
菜鸟foxtable 发表于：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编辑过]
咱不能让老爹把鱼做熟了再吃吧?
9楼
abcdzabcdz 发表于：2008/12/22 15:15:00学习中.......
10楼
gdlgh 发表于：2008/12/22 15:43:00学习！！