Dim Book As New XLS.Book(ProjectPath & "Attachments\非住宅房租催缴通知模板.xls")
Dim fl As String = ProjectPath & "Attachments\房租催缴通知.xls"
Book.Marks.Add("DWDZ",e.Form.Controls("Label2").TEXT)
Book.Marks.Add("LXDH",e.Form.Controls("Label3").TEXT)
Book.Marks.Add("DWMC",e.Form.Controls("Label4").TEXT)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
App.Visible = False
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
Wb.Close
App.Quit
我想批量直接打印,结果才打第一个就跳出提示:
此主题相关图片如下：360截图17950510608284.png
如果打印1千个....
这段代码哪里有问题?
加好友 
发短信
Post By：2019/4/1 9:35:00 [显示全部帖子]
