Word automation from Excel VBA printing problem

Sometimes when I print a certain word document from Excel using VBA it does not print until I manually activate the Excel window. Most of the time it works. The code is: START CODE While [login to view URL] <> 0 DoEvents Wend printing = False [login to view URL] savechanges:=False If [login to view URL] = 0 Then [login to view URL] False Else [login to view URL] = wdWindowStateMinimize End If Set mywordclass = Nothing AppActivate "Microsoft Excel - " & [login to view URL] END CODE N.B. Since this an intermittent problem I will not pay until it is verified the solution works which may take several weeks.