XL 2010 macro pour imprimer en PDF

mix770

XLDnaute Occasionnel
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
 

BALANCIE

XLDnaute Nouveau
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
 

Discussions similaires


Haut Bas