je voudrais faire un publipostage avec un document word existant
Mon code fonctionne pour imprimer une seule page, mais si je fais une boucle pour lui demander de répéter le code autant de fois qu'il y a d'enregistrements, il me met toutes les informations sur la première page
Mon code pour imprimer une page est le suivant :
Private Sub cmdfusion_Click()
'Lance le publipostage
Dim w As New Word.Document
w.Application.Visible = True
Documents.Open ("c:\Mes Documents\Projet_contacts\document.rtf")
w.Application.WindowState = wdWindowStateMaximize
Documents("document.rtf").Bookmarks("nomsociete").Select
Selection.TypeText Adodc1.Recordset!nomsociete
Documents("document.rtf").Bookmarks("adresse1").Select
Selection.TypeText Adodc1.Recordset!adresse1
If Adodc1.Recordset!adresse2 <> "" Then
Documents("document.doc").Bookmarks("adresse2").Select
Selection.TypeText Adodc1.Recordset!adresse2
End If
Documents("document.rtf").Bookmarks("codepostal").Select
Selection.TypeText Adodc1.Recordset!codepostal
Documents("document.rtf").Bookmarks("ville").Select
Selection.TypeText Adodc1.Recordset!ville
ActiveDocument.PrintPreview 'Lance l'aperçu avant impression
Documents("document.rtf").PrintOut
End Sub
Quel est le code à ajouter pour imprimer plusieurs page ???
Même un début de réponse me serait d'une très grande aide
Merci beaucoup