iMPRESSION PDF MULTI PAGE

[vmax67]

Bonjour les experts

je sollicite votre aide par rapport à mon code pour l'impression en PDF
de plusieurs page à partie du même onglet.

Ci-dessous mon code

Sub Impression_fiche_de_frais()

Dim Chemin As String

Chemin = "C:\Mes documents\Test\"
Chemin = Chemin & Range("B1").Value & "_" & Range("C1").Value & ".pdf"

NB_FI = Range("nb_joueurs").Value

Sheets("fiche_individuelle").Select
For i = 1 To NB_FI
Range("nom_FI").Value = Range("nom_joueur_" & i & "").Value
Range("adresse_FI").Value = Range("ville_joueur_" & i & "").Value
Range("ville_FI").Value = Range("club_joueur_" & i & "").Value
Range("ligue_FI").Value = Range("ligue_joueur_" & i & "").Value
Range("montant_FI").Value = Range("frais_joueur_" & i & "").Value

ActiveSheet.PrintOut copies:=1, ActivePrinter:="Foxit Reader PDF Printer"

Next

End Sub

Actuellement j'utilise Foxit, mais mai j'aimerai utiliser le fonction Pdf qui est intégrée directement
dans Excel.

Merci pour votre aide

VMAX

 

[Yaloo]

Re : iMPRESSION PDF MULTI PAGE

Bonsoir vmax,

Avec ceci

Chemin = Chemin & Range("B1").Value & "_" & Range("C1").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin

A+