Créer plusieurs PDF à partir d’un état
Bonjour,
j'ai un petit soucis.
J'ai un état de plusieurs pages (1 personne par page) et j'aimerais obtenir plusieurs pdf (1 pdf par personne) pour les envoyer à chaque destinataire.
J'ai ce code pour pouvoir renommer et extraire en pdf mon état, mais j'aimerais créer un pdf par personne
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
| Private Sub Commande86_Click()
' Nommer automatiquement le fichier si impression en pdf
DoCmd.OpenReport "E_Or Mi_Fournisseurs", acPreview
Dim sFileName As String 'construction du nom du fichier
sFileName = LValue & " " & Me.N°_Secu_Employé.Column(1) & "_" & Me.N°_Secu_Employé.Column(2) & "_" & Me.Enseigne & "_" & Me.date_anim & "_" & " OR MI " & "_" & Me.Envoi_des_contrats & ".pdf"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''' A PERSONNALISER !! ''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sFileName = "c:\Users\Megaport\Desktop\a envoyer\" & sFileName '<= Personalisation du dossier d'enregistrement // enregistrement dans le dossier d'origine => CurrentProject.Path &"\"&
'--- méthode d'enregistrement avec possibilité de changer de dossier, de nom, ou d'annuler
With Application.FileDialog(msoFileDialogSaveAs) '=> (msoFileDialogSaveAs)à écrire à la main, le copier/coller ne fonctionne pas !!
.Title = "Sauver le contrat au format pdf"
.InitialFileName = sFileName
If .Show Then
sFileName = .SelectedItems(1)
DoCmd.OutputTo acOutputReport, "E_Or Mi_Fournisseurs", acFormatPDF, sFileName, , , , acExportQualityPrint
Else
MsgBox "Annulé (non enregistré)", , "Pour info"
End If
End With
End Sub |
Si quelqu'un pouvais me filer un coup de main ...
merci d'avance