XL 2010 macro pour imprimer en PDF

  • Initiateur de la discussion Initiateur de la discussion mix770
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mix770

XLDnaute Impliqué
Bonjour le forum,

j'ai une macro pour imprimer en pdf, j'ai fait des modifications et il y a maintenant 13 pages.
je souhaiterai modifier ma macro pour délimiter les zones d'impressions.

une des zones est : A 41:S 42

merci à vous je tourne mais ne trouve pas.

ci dessous ma macro:

Private Sub Ferme_Janvier_Click()
Sheets("analyse_absences").Select
Unload Me
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Unload Me
Sheets("page accueil").Select
End Sub
 
Bonjour,

Voici une macro que j'utilise afin de sauvegarder et imprimer mon classeur (20 feuilles) pour le Mois complet.
Il sauvegarde en gardant les formats impressions du Classeur et Imprime l'ensemble sans erreur.
Je précise qu'il n'est pas de moi, je l'ai trouvé sur le forum.
Cela peut aider, je pense.


Sub PdfMOIS()
Dim nom As String
Dim dossier As String


'emplacement a derterminée
If MsgBox(" Générer le PDF du Mois ?", vbYesNo, _
"Demande de confirmation") <> vbYes Then Exit Sub



dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B2")


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Choix du Répertoire ?")
End If
End Function


Bon courage.
DARYL.B
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
3 K
Retour