求救：word打印问题！(200分)

delphi5后台调用word批量打印：
调用word：
try
WordApp:=CreateOleObject('Word.Application'); //打开 Word
MyDoc:=CreateOleObject('Word.Document');
except
Raise Exception.Create('无法打开Word，请确认已安装Word。');
end;
形成文档打印过程：
//*******多次循环*********//
{ filename:=GetCurrentDir()+'/Dot/123.dot';

WordApp.Visible:=False;//将文档不可见
MyDoc:=WordApp.Documents.Add(FileName,False)

MyDoc.BookMarks.Item('Header').Select;
WordApp.Selection.Text := Header;

WordApp.PrintOut;

SaveControl:=wdDoNotSaveChanges;
SaveFormat:=wdOriginalDocumentFormat;
MyDoc.Close(SaveControl,SaveFormat)}
//*******多次循环*********//
在形成文档过程中有时候会出现：“RPC服务器不可用”，“对方拒绝呼叫”的错误

请高手不吝赐教！

在循环中
找个地方
加一句
application.processmessage;
再试试！