Dim Arys As List(Of String)
Arys = DataTables("退休慰问费").GetUniqueValues("", "慰问单位")
For Each Ary As String In Arys
With Tables("退休慰问费")
.Filter = "[是否停发] = False"
If .Rows.Count = 0 then
Continue for
End If
.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
Tables("退休慰问费").Filter = ""
求教以上代码为何不能按各单位+各单位人员打印报表？而是所有报表各单位+全体人员打印出来？
另求更完美的代码
[此贴子已经被作者于2010-1-20 23:49:32编辑过]
加好友 
发短信
小学文化
Post By：2010/1/20 22:56:00 [只看该作者]
