Format portrait ou paysage

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - Modifié le 20 févr. 2019 à 17:59
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 20 févr. 2019 à 18:50

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

A voir également:

Format portrait ou paysage
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format paysage word - Guide
Format bin - Guide
Format apfs - Guide

2 réponses

Réponse 1 / 2

baladur13 Messages postés 46395 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 24 avril 2024 13 219
20 févr. 2019 à 18:23

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.

Réponse 2 / 2

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
20 févr. 2019 à 18:50

En ajoutant les lignes ci-dessous selon le cas.

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

Discussions similaires

Menace "Interpol" après webcam coquine

changer une photo paysage et portrait

Ajuster tableau a la taille d'une feuille A4

Discussions similaires

Newsletters