主题：EXCEL选择后执行批量打印

不要循环

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim Book As New XLS.Book(ProjectPath & "Attachments\业绩明细A.xls") '打开模板
Dim rpt As String = ProjectPath & "Reports\业绩明细A" & Tables("业绩填报").current("员工工号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(7,12).Value = "<填报日期 >= #" & e.Form.Controls("DateTimePicker1").Value & "# And 填报日期 <= #" & e.Form.Controls("DateTimePicker2").Value & "#" '写入打印条件
Book.Build()
Book.Save(rpt)
wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
wbr.AddRess = rpt

打印参考

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
app.Visible = True
Ws.PrintPreview '预览
'ws.printout '打印
app.quit