Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: impression en pdf publipostage

16/10/07 13:08
Bonjour, j'ai trouve la solution

Function Publipostage_avis_de_controle()

dim docword as Word.Document
Dim wdapp As New Word.Application

Set wdapp = CreateObject("Word.Application"winking smiley

With wdapp
.Visible = True
.Documents.Open Filename:="E:\courrier\Avis.doc"
.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
.ActiveDocument.MailMerge.OpenDataSource _
Name:="E:\Base.mdb", _
Linktosource:=true, _
Connection:="TABLE T_courrier", _
SQLStatement:="SELECT * FROM [T_courrier]"
.ActiveDocument.MailMerge.DataSource.QuerySting = "SELECT * FROM [T_courrier]"
.ActiveDocument.MailMerge.Execute
.ActivePrinter ="PDFCreator"
End With

Set myPDFCreator = New PDFCreator.clsPDFCreator

With myPDFCreator
.cDefaultPrinter = "PDFCreator"
.cClearCache
End With
n = 6
For i = 1 To n Step 1

wdapp.PrintOut Filename:="", Copies:=1, Range:=wdPrintCurrentPage
wdapp.Application.Browser.Next

Next

myPDFCreator.cPrinterStop = False

myPDFCreator.cClearCache
DoEvents
Do Until myPDFCreator.cCountOfPrintjobs = 0
DoEvents
Loop
myPDFCreator.cClose
Set myPDFCreator = Nothing

Set wdapp = Nothing

End Function

Cela me génère bien le documentword ainsi que les fichiers pdf, 1 par page il ne me reste plus qu'à trouver la solution pour que cela nomme les fichiers avec des données issues de la table T_courrier.
SujetAuteurEnvoyé le

impression en pdf publipostage

andarius4014/10/07 21:08

Re: impression en pdf publipostage

andarius4016/10/07 13:08

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter