1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 macro pour imprimer en PDF

Discussion dans 'Forum Excel' démarrée par mix770, 4 Décembre 2018.

  1. mix770

    mix770 XLDnaute Occasionnel

    Inscrit depuis le :
    30 Avril 2010
    Messages :
    465
    "J'aime" reçus :
    0
    Habite à:
    la grande paroisse
    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
     
  2. Chargement...

    Discussions similaires - macro imprimer PDF Forum Date
    XL 2010 Modifier une macro impression pour imprimer en PDF Forum Excel 11 Octobre 2016
    Imprimer fichiers .pdf dans l'ordre d'ouverture depuis une macro VBA Forum Excel 23 Mars 2015
    Imprimer vers un Pdf depuis une macro Forum Excel 25 Avril 2014
    Macro VBA Imprimer fichier excel en PDF Forum Excel 2 Mars 2014
    Imprimer en PDF à partir d'une macro Forum Excel 16 Février 2014

  3. BALANCIE

    BALANCIE XLDnaute Nouveau

    Inscrit depuis le :
    16 Novembre 2018
    Messages :
    28
    "J'aime" reçus :
    1
    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
     

Partager cette page