“被呼叫方拒绝接受呼叫”问题

人为设置一个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