看说明文档里的代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
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)
Ws.PrintOut
App.Quit
可以打印选中的主表单行,也可以选择多行,但选择多行的话会让页尾号连续,看到大红袍老师给用户说可以把doc放进循环里面,循环每一行,每次生成一次doc,每次打印一次doc。
这样每次打印的表都是独立的.又看了帮助翻了论坛试过几次无果,求循环主表每一行的打印方法. 谢谢
[此贴子已经被作者于2016/10/22 17:47:17编辑过]