[pacopenin]

Hola mak8888:

Prueba con esto. A mi me funcionó para la generación de un .pdf donde me pasaba lo mismo.

Código Delphi [-]
while gWord.BackgroundPrintingStatus <> 0 do
      begin
         Sleep(10);
         Application.ProcessMessages;
      end;