VB6 et WORD

Boujour,

Mon application consiste =E0 imprimer des formulaires=20
contenant des informations venant d'=EAtre saisies=20
compl=E9t=E9es par des informations provenant d'autres=20
applications.

Pour =E9tablir le formulaire j'ai cr=E9=E9 une macro WORD que=20
j'ai transf=E9r=E9e par copier/coller dans VB6.

Tout marche parfaitement sauf qu'=E0 chaque impression une=20
fen=EAtre me demande si je veux enregistrer le document, je=20
clique sur "NON" et tout va bien.

Comment faire pour que la question ne soit pas pos=E9e et le=20
document supprim=E9 ?

Ci-dessous le code utilis=E9 :

Private Sub EditRecu()

Dim wrdDoc As Object
=20
Set wrdDoc =3D CreateObject("Word.Document")
=20
Call wrdDoc.Select
=20
Selection.ParagraphFormat.Alignment =3D=20
wdAlignParagraphCenter
Selection.Font.Name =3D "Times New Roman"
Selection.Font.Size =3D 18
Selection.Font.Bold =3D wdToggle
Selection.TypeText Text:=3D"XXXXXXXXXX"
Selection.TypeParagraph

etc .......................................................
...........................................................
.........................

Selection.TypeParagraph
=20
Application.PrintOut FileName:=3D"",=20
Range:=3DwdPrintAllDocument, Item:=3D _
wdPrintDocumentContent, Copies:=3D1, Pages:=3D"",=20
PageType:=3DwdPrintAllPages, _
ManualDuplexPrint:=3DFalse, Collate:=3DTrue,=20
Background:=3DTrue, PrintToFile:=3D _
False, PrintZoomColumn:=3D0, PrintZoomRow:=3D0,=20
PrintZoomPaperWidth:=3D0, _
PrintZoomPaperHeight:=3D0

Application.Quit
=20
Set wrdDoc =3D Nothing

End Sub

Toutes les solutions m'int=E9ressent

D'avance merci.

G=E9rard