主题：请教: excel报表能否实现piao据连续套打?

针式打印机,目前单张套打没问题,如何实现连续打印?

方法一：生成单张改成全部一起生成，然后打印不行？

 

方法二：循环生成excel报表不也可以连续打印？

 

 

方法一：如果连续套打的量比较少还可以，但是如果生成几千行的数据，可能会有问题。

 可以，参考打印代码

 

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