Problème d'impression d'un Doc Word depuis access

Voilà mon code :
Set MyApp = CreateObject("Word.Application")
MyApp.Visible = False
MyApp.displayAlerts = wdAlertsNone
MyApp.Documents.Open (Fich)
MyApp.Activedocument.PrintOut
' Do Until MyApp.BackgroundPrintingStatus <> 0
' Loop
MyApp.Activedocument.Close
MyApp.Quit
le problème est qu'avec ce code je ferme Word avant la fin du lancement de la tâche d'impression
ce qui génère un message qui demande si ont veut vraiment fermer l'application si on dit Oui, l'impression ne se fait pas.
J'ai bien essayé de faire une boucle d'attente, mais le résultat n'est pas convainquant.

Une solution sil vous plait... c' est Urgent !!!

Toujours en attente de réponce...



-------------------------------
Réponse au message :
-------------------------------

Voilà mon code :
Set MyApp = CreateObject("Word.Application")
MyApp.Visible = False
MyApp.displayAlerts = wdAlertsNone
MyApp.Documents.Open (Fich)
MyApp.Activedocument.PrintOut
' Do Until MyApp.BackgroundPrintingStatus <> 0
' Loop
MyApp.Activedocument.Close
MyApp.Quit
le problème est qu'avec ce code je ferme Word avant la fin du lancement de la tâche d'impression
ce qui génère un message qui demande si ont veut vraiment fermer l'application si on dit Oui, l'impression ne se fait pas.
J'ai bien essayé de faire une boucle d'attente, mais le résultat n'est pas convainquant.

Une solution sil vous plait... c' est Urgent !!!

Même tarvail à réaliser, même probléme, même déception avec la fonction backgroundprintingstatus (soit dit en passant cette fonction gére la file d'attente d'une imprimante locale, pas de gestion d'imprimante réseau !!).

Si kelkun s'est déja sorti de ce m...... qu'il nous fasse signes.



SOHET Morgan
C.N.P.O. - Le Belloy


-------------------------------
Réponse au message :
-------------------------------

> Toujours en attente de réponce...
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Voilà mon code :
> Set MyApp = CreateObject("Word.Application")
> MyApp.Visible = False
> MyApp.displayAlerts = wdAlertsNone
> MyApp.Documents.Open (Fich)
> MyApp.Activedocument.PrintOut
> ' Do Until MyApp.BackgroundPrintingStatus <> 0
> ' Loop
> MyApp.Activedocument.Close
> MyApp.Quit
> le problème est qu'avec ce code je ferme Word avant la fin du lancement de la tâche d'impression
> ce qui génère un message qui demande si ont veut vraiment fermer l'application si on dit Oui, l'impression ne se fait pas.
> J'ai bien essayé de faire une boucle d'attente, mais le résultat n'est pas convainquant.
>
> Une solution sil vous plait... c' est Urgent !!!
>