请问,怎样控制打印,以免打印队列内的打印任务越来越多导致系统的崩溃?
scyn 2004-09-21 11:06:35
我通过excel打印票据,将打印代码放在循环中
for i = 0 to PrintCnt - 1 Step 1
...
With objxlsWorksheets
.Cells(1, 2).Value = Data(i) '往excel里写数据
...
End With
...
objxlsWorksheets.PrintOut '通过excel打印
objxlsWb.Close False
bjxlsApp.Quit
Set objxlsWs = Nothing
Set objxlsWb = Nothing
Set objxlsApp = Nothing
...
Next
如果票据少的时候,打印一切正常,可是如果票据较多(循环次数较多),在打印到多半的时候,经常出现"内存不足"等错误提示,导致了系统崩溃甚至死机,剩下的票据无法正常打印。
请问,怎样实现在循环中控制一下,比如每打印10页后,让系统等待,等这10页打印结束后,再继续循环并打印。
急盼!! 谢谢!!