Dim n As Integer=0
For Each r As Row In Tables("sj1").Rows
Dim Book As New XLS.Book(ProjectPath & "Attachments\交费收据.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,1).Value = "学生姓名:" & r("学生姓名")
Sheet(5,1).Value = r("收费项目")
Sheet(5,2).Value = r("数量")
Sheet(5,3).Value = r("单价")
Sheet(5,4).Value = r("金额")
Sheet(5,5).Value = r("备注")
Sheet(3,5).Value = "piao据编号:" & r("piao据号")
Dim fl As String = ProjectPath & "Reports\交费收据" & N & ".Xls"
n=n+1
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()
Next
'
'
'Sheet(6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
'Book.Build() '生成细节区
'Book.Save("c:\reports\test.xls") '保存工作簿
'Dim Proc As New Process '打开工作簿
'Proc.File = "c:\reports\test.xls"
'Proc.Start()
加好友 
发短信
Post By：2014/11/5 16:22:00 [显示全部帖子]
