Impression paysage et portrait

Bonjour,

J'ai fait une macro pour imprimer des fichier PDF .Je me demande s'il est possible d'imprimer les sheets "Liste DD", "700m²", "800m²", "900m²", "990m²", "1065m²", "1286m²")) en paysage et la première feuille Guide en portrait?

J'espère que j'étais clair

Merci par avance pour votre réactivité.

Sub Macro1()

For i = 2 To 15

    Sheets("Liste DD").Select
    ActiveSheet.Range("$B$8:$O$202").AutoFilter Field:=1, Criteria1:=i
    Sheets(Array("Guide", "Liste DD", "700m²", "800m²", "900m²", "990m²", "1065m²", "1286m²")). _
        Select
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "LH pays\ANN - DT" & i & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        Sheets("Liste DD").Activate
Next i

End Sub

Bonsoir,

Il ne s'agit pas d'impression mais d'export en pdf...

Le pdf suivra par défaut les paramètres d'impression. Donc tu définis les paramètres d'impression d'abord, et tu prodèdes à l'export ensuite.

Cordialement.

Cest possible de parametrer pour chaque feuille ? Jai une partie en portrait et lautre en paysage c possible ?

Les paramètres d'impression sont propres à chaque feuille...