For Each dr As DataRow In DataTables("出纳单据").Select("是否打印= 1")
Dim Book As New XLS.Book(ProjectPath & "Attachments\费用报销单.xls")
Dim fl As String = ProjectPath & "Reports\费用报销单.xls"
book.AddDataTable("A","数据源A","s elect * f rom {A} where ID = '"& dr("ID") &"'") '添加父表
book.AddDataTable("B","数据源B","s elect * f rom {B} where PARENT = '"& dr("ID") &"'") '添加子表
book.AddDataTable("C","数据源C","s elect * f rom {C} where PARENT = '"& dr("ID") &"'") '添加子表
book.AddRelation("A","ID","B","PARENT") '建立关联
book.AddRelation("A","ID","C","PARENT") '建立关联
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
App.Visible = True
Ws.PrintPreview
wb.close
App.Quit
next
以上代码是单个预览，然后打印，例如我选中三条需要打印的单据，我需要将这三张单据在一个页面预览出来，点击打印时，连续打印三张单据，而不是预览一张单据，点击打印一张，然后又预览一张单据，点击又打印一张
加好友 
发短信
Post By：2018/5/22 16:09:00 [只看该作者]
