imprimer en pdf

[fostier]

bonjour
j'ai découvert cette macro, j'ai plusieurs onglets a imprimer qui ont 12 pages chacun correspondant aux mois de l'année comment puis je définir les mois a imprimer sans avoir les 12 pages

ci joint un modèle

Sub imprim1() 'une partie du code écrit pas Dull
Dim P As Byte
P = MsgBox(Range("fostier!A1"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
With UserForm1
.Zoom = 90
End With
UserForm1.PrintForm
With UserForm1
.Zoom = 100
End With
Unload UserForm1
End Sub

merci de votre aide

 

[Compte Supprimé 979]

Re : imprimer en pdf

Bonjour Fostier

Qu'est-ce que ce code à avoir avec ta demande !?
Celui-ci imprimer un UserForm et non les feuilles d'un classeur ...

Une petite recherche sur le site via google tu trouveras tout ce que tu souhaites