Rassembler plusieurs copie Etat

Bonjour,

Est-il possible de rassembler un Etat qu'on imprime par ex 3 fois dans un seul Etat mais cela avant de l'imprimer.

Je m'explique, je voudrais imprimer le Nbre de copie que j'imprime,

Code:

---

DoCmd.PrintOut , , , , 3

---

Donc ici 3 fois le même Etat

Ca marche quand je l'imprime directement car je fais une boucle sur le code d'impression

Code:

---

1 2 3 4 5

Do While VarCounterCopie <= NbreCopiePrint - 1 'La ligne suivante imprimera le nbre de copies DoCmd.PrintOut , , , , 1 VarCounterCopie = VarCounterCopie + 1 Loop

---

mais si je le fais en PDF, ça ne fonctionne plus, logique puisque j'imprime 3 fois de suite un Etat, donc je dois donner à chaque fois un nom de fichier, C embêtant si je dois faire 10 copies.

Donc je voudrais avoir les copies les unes derrière les autres et ensuite faire mon fichier PDF
Je réalise le PDF avec CutePDF Writer.

Si vous avez une solution merci

A+

Bonjour,
Je n'ai pas de solution toute faite. Quelques pistes:
a) sortir le rapport sous le format .rtf et ensuite piloter Word pour faire un document avec autant de copies que souhaité et l'envoyer sur l'imprimante CutePdf. Expliqué sur ce post: Merge reports into one report
b) piloter le freeware PDFTK qui permet de concaténer des fichiers pdf.
c) utiliser PdfCreator et s'inspirer de cette macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'--- PdfCreator doit avoir été inscrit en Références '--- inspiré de https://www.excelguru.ca/forums/showthread.php?7176-Meging-PDF-files-with-VBA   Sub mergePDF() Dim file1 As String, file2 As String file1 = CurrentProject.Path & "\" & "P1.pdf" file2 = CurrentProject.Path & "\" & "P2.pdf" Dim outPath$ outPath = CurrentProject.Path & "\" & "P1-P2.pdf" Dim oPDF As PdfCreatorObj Set oPDF = New PdfCreatorObj oPDF.AddFileToQueue file1 oPDF.AddFileToQueue file2 Debug.Print "oPDF isinstancerunning: " & oPDF.IsInstanceRunning ' close Excel and reopen if true. On Error GoTo EndSub Dim q As PDFCreator_COM.Queue Set q = New PDFCreator_COM.Queue q.Initialize q.WaitForJobs 2, 10 Debug.Print "q.Count: " & q.count ' Error-check: here it prints either 1 or 2. Should always be 2. q.MergeAllJobs Dim job As PDFCreator_COM.PrintJob While q.count > 0 Set job = q.NextJob job.SetProfileByGuid ("DefaultGuid") job.ConvertTo (outPath) Wend EndSub: q.ReleaseCom '--- ouvre le fichier créé End Sub

---

Bonne continuation.