Format portrait ou paysage [Résolu]

Messages postés
1017
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 septembre 2019
-
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
Afficher la suite 

2 réponses

Messages postés
38105
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
23 septembre 2019
5296
0
Merci
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.
Commenter la réponse de baladur13
Messages postés
1017
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 septembre 2019
117
0
Merci
En ajoutant les lignes ci-dessous selon le cas.

.Orientation = xlLandscape 'mise au format paysage
.Orientation = xlPortrait 'mise au format portrait
Cordialement
Commenter la réponse de JCB40