Bonjour à tous,

J'ai un petit soucis.
Mon application lit des fichiers texte dans un répertoire donné et génère une étiquette pour chaque ligne dans le fichier.
Lorsque j'ai un fichier avec de nombreuses lignes, au bout d'un moment, j'ai un nouveau Word pour la nouvelle étiquette avant que l'impression de la précédente ne soit terminée et j'ai un message d'erreur
- des modifications ont ete apportees au modele global normal enregistrer les modifications ?
J'enregistre le fichier créé sous un nom provisoire, j'ai ajouté un doevent en espérant qu'il attende la fin de l'impression pour passer à l'étiquette suivante, mais rien n'y fait.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Doc_wrd = CreateObject("Word.Application")
Doc_wrd.visible = False
Doc_wrd.documents.add()
Doc_wrd.Selection.Range.text = Fichier_str
Doc_wrd.activedocument.saveas(My.Settings.RepertProvis & "\EtiqProvis" & RefProd_str & CompteurProduit_lng & ".doc")
Doc_wrd.ActivePrinter = NomImp_str
Doc_wrd.PrintOut()
System.Windows.Forms.Application.DoEvents()
Doc_wrd.Application.ActiveDocument.Close(0)
Doc_wrd.application.quit()