Format portrait ou paysage

Résolu
JCB40 -  
Bonjour,
Avec cette macro je voudrais savoir ce qu'il faut rajouter pour que
l'impression se fasse automatiquement au format portrait ou paysage selon le zoom demandé 

Sub miseEnPageAvantImpression5()
    With Sheets("Triplette").PageSetup
        'Définit la zone d'impression pour une plage de cellules.
      ligne = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
        .PrintArea = "$B$8:$Y" & ligne
        .PaperSize = xlPaperA4
        .Zoom = 80
        'Mise en page: définit les marges
        .LeftMargin = Application.InchesToPoints(1)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
    End With  
 
    Sheets("Triplette").PrintPreview
End Sub


Merci pour votre aide
Cordialement

Configuration: Windows / Firefox 65.0

2 réponses

  1.  baladur13 Modérateur
    Bonjour
    Puisque vous dites dans une alerte avoir résolu le problème par vous-même, il serait gentil de votre part de nous donner la solution.
    Cette dernière pouvant, qui sait, servir à d'autres internautes confrontés à ce type de problème.
    Merci d'avance pour eux.
    0
    1. JCB40 Auteur
      En ajoutant les lignes ci-dessous selon le cas.

      .Orientation = xlLandscape 'mise au format paysage
      .Orientation = xlPortrait 'mise au format portrait
      Cordialement
      0

      Discussions similaires

      Passer en format A3 paysage word
      Cyturgis

      5 réponses