Format portrait ou paysage
Résolu
JCB40
Messages postés
3058
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
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é
Merci pour votre aide
Cordialement
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
-
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.
-
En ajoutant les lignes ci-dessous selon le cas.
.Orientation = xlLandscape 'mise au format paysage
.Orientation = xlPortrait 'mise au format portrait
Cordialement
