“被呼叫方拒绝接受呼叫”问题
人为设置一个Excel打印模板供调用。循环生成五批数据,每生成一批就打印一份资料,即调用vb的一个模板excel去套整理好的数据并打印,然后释放调用
第一轮过去后(打印机还在打印),第二轮已经生成完资料,准备套模板打印,就出错了。
只能通过每次调用完一次循环,睡眠一下来等待再进行下一轮吗?
下面是套模板的语法
Dim APP_STR = "模板路径\XXX1.xlsx"
Dim proSheetA = New Excel.Application
Dim proSheetA_WORKBOOKS = proSheetA.Workbooks
Dim proSheetA_WORKBOOK = proSheetA_WORKBOOKS.Open(APP_STR) '这里被拒绝呼叫了
.....
(整理数据至模板对应位置)
.....
proSheetA.ActiveWindow.SelectedSheets.PrintOut(, , , , sprintRpt)
CloseExcel(proSheetA) '关闭/释放所有资源 有关闭workbook