Pilotage de Word depuis VB

Question

Bonjour à tous, 

J'ai besoin de créer des fichiers PDF à partir de fichiers Word depuis VB6. 
En écumant les sites VB j'ai trouvé des idées qui fonctionnent pas mal. 
Voir le code ci-dessous : 

Dim MonDocument As Object 

Screen.MousePointer = 11 

Set MonDocument = CreateObject("Word.Application") 
ActivePrinter = "Acrobat PDFWriter on LPT1:" 
MonDocument.Application.Visible = False 
MonDocument.Application.Documents.Open (App.Path & "\MonDoc.doc") 
MonDocument.Application.PrintOut 
'****************** 
MonDocument.Application.Documents.Close 
MonDocument.Application.Quit 

Screen.MousePointer = 1 

Tout ceci fonctionne bien SAUF car il y a un SAUF : 
mon code essaie de fermer Word alors qu'il n'a pas fini d'imprimer. 
Il me faudrait une tempo à la place de : '****************** 
Seulement plutôt qu'une tempo je préférerai que Word me prévienne qu'il a 
terminé. 
Alors j'ai cherché un truc du genre AfterPrint mais je n'y arrive pas. 

Si l'un d'entre vous a une idée.................... 

Merci d'avance. 

Dany

msohet · Answer

essaie ca !

> Bonjour à tous, 
> 
> J'ai besoin de créer des fichiers PDF à partir de fichiers Word depuis VB6. 
> En écumant les sites VB j'ai trouvé des idées qui fonctionnent pas mal. 
> Voir le code ci-dessous : 
> 
> Dim MonDocument As Object 
> 
> Screen.MousePointer = 11 
> 
> Set MonDocument = CreateObject("Word.Application") 
> ActivePrinter = "Acrobat PDFWriter on LPT1:" 
> MonDocument.Application.Visible = False 
> MonDocument.Application.Documents.Open (App.Path & "\MonDoc.doc") 
> MonDocument.Application.PrintOut 
> '****************** 


while mondocument.backgroundprintingstatus <> 0
'ca te permettra de temporiser
wend


> MonDocument.Application.Documents.Close 
> MonDocument.Application.Quit
'tu pourra quitter sans risque 

> Screen.MousePointer = 1 

Morgan SOHET
CNPO - Le Belloy

Pilotage de Word depuis VB

1 réponse

Discussions similaires