XL 2016 Mixer Portrait et Paysage en impression de feuille

Phil69970

XLDnaute Barbatruc

• 13 Janvier 2022

• #2

Bonjour @Dudu2

Tu devrais trouver ton bonheur ici ma macro te permet de régler les pages avec tous les paramètres que tu veux

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Janvier 2022

• #3

Bonjour

Sur un même onglet ce n'est pas possible.

Mais même sur des onglets différents cela dépend de l’imprimante, certaines imprimantes refusant le panachage d'orientations, d'autres l'acceptant.

Les vues personnalisées, quasi inutilisables, depuis la version 2007 (ou peut-être 2003) car incompatibles avec les tableaux structurés, permettaient de paramétrer plusieurs orientations sur un même onglet mais il fallait du code VBA pour afficher une vue, imprimer, passer à l'autre vue, imprimer...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Janvier 2022

• #4

Bonjour @Phil69970, @chris,

Merci pour vos réponses.
@Phil69970, je vais exploiter ton code.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 14 Janvier 2022

• #5

Re

Tiens moi au courant si tu arrives à tes fins

@Phil69970

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Janvier 2022

• #6

Bonjour,

Voilà un fichier qui fonctionne et qui permet par exemple de passer en Paysage les pages d'une feuille orientée Portrait qui ont un débordement latéral qui justifie le passage en Paysage.

 

Pièces jointes

• PrintSheetMixOrientation.xlsm

  74.2 KB · Affichages: 6

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 20 Janvier 2022

• #7

Bonjour Dudu2, Chris, Phil69970 et à tous

Pour ma part voici ce que j'ai réalisé.
Je calcul simplement la somme (largeur) des colonne à imprimer,
et j'adapte le zoom et l'orientation en conséquence.

Salutation
Jean-Paul

 

Pièces jointes

• Gestion_Fichiers(3).xlsm

  28.8 KB · Affichages: 8

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Janvier 2022

• #8

Bonjour @VIARD,
Je n'arrive pas à choisir un fichier à imprimer en cliquant sur le personnage.
Une fois qu'on a la liste des fichiers, que faut-il faire ?

Pourquoi n'as-tu pas proposé un choix de fichier avec:

VB:

Name = Application.GetOpenFilename(FileFilter:="Excel Files, *.xl*; *.xm*")

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 20 Janvier 2022

• #9

Bonjour Dudu2

Ici c'était juste pour l'exemple.
Une fois que tu as la liste des fichiers il suffit d'imprimer c'est tout.
le programme s'adapte.
Pour moi je n'ai pas de soucis, reste maintenant si l'imprimante suit, j'ai une HP 4500.

A+ (je dois m'absenté)

 

Vote positif 0 Vote négatif