Macro imprimer une selection en PDF

Bonjour,

Je me tourne vers vous car je n'ai pas réussi à trouver une solution a mon problème... Je m'explique:

J'ai une feuille sur mon classeur qui évolue chaque jour en quantité de ligne et qui est fixe en colonne.

A l'heure actuelle mon code pour l'impression est:

        With Worksheets("xxx")
            .ExportAsFixedFormat Type:=xlTypePDF, filename:=Sheets("N°1").Cells(1, 3) & "\123456", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End With

Sur cette impression on est du type "Imprimer les feuilles actives" et je souhaiterais passé en "Imprimer la sélection".

Merci de votre aide

Bonjour,

Tu définis une zone d'impression et tu modifies la propriété IgnorePrintAreas en conséquence.

Cdlt.

Merci pour ta réponse.

Du coup j'ai fais ceci est cela marche

    If IsFileOpen(Sheets("1").Cells(1, 3) & "%") Then
    Else
        Ligne = 5                                                      'Ligne de départ
            While Cells(Ligne, 2) <> ""                       'Recherche la première cellule vide
                Ligne = Ligne + 1
            Wend

        Ligne = Ligne + 4                                         

        Range(Cells(1, 1), Cells(Ligne, 12)).Select     'Selectionne la plage de cellule

            With Worksheets("***")
                Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:=Sheets("1").Cells(1, 3) & "%", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
            End With

    End If

Merci pour votre aide