Mensaje enviado por "Ignacio Napal" <inapal@equiplus.com>

Si el programa abre el documento Word utilizando OLE Automation, entonces al momento de imprimir se le puede indicar que espere a finalizar la impresión, antes de continuar con la línea siguiente (para tu caso, el cierre del documento).

Por ejemplo, algo así:

Dim wd As Word.Application
Dim wdDoc As Word.Document

Set wdDoc = wd.Documents.Open("c:\prueba1.doc")
wdDoc.PrintOut False
wdDoc.Close False
wd.Quit

Set wd = Nothing
Set wdDoc = Nothing

Aquí, el valor "False" que se le pasa al método "PrintOut" indica que la impresión NO debe hacerse en background, lo que asegura que, para cuando se ejecute la siguiente línea de código (en el ejemplo, el cierre del documento con el método "Close"), la tarea de impresión está terminada.

Ignacio Napal
Equiplus S.A.
e-mail: inapal@equiplus.com

Mensaje enviado por AVernieri@juncalnet.com.ar


Hola!

Esto está tomado de la MSDN. Yo personalmente todavía NO probé este código...

Suponiendo que WA sea tu Word.Application:

If WA.BackgroundPrintingStatus > 0 Then
' Todavía está imprimiendo...
End If

Espero que te sirva
Saludos
Alberto