XL 2016 Mixer Portrait et Paysage en impression de feuille

[Dudu2]

Bonjour à tous,

Mixer Portrait et Paysage en impression de feuille semble impossible nativement.

Par contre, il existe peut-être un outil ou un fichier avec une macro permettant de paramétrer les orientations de séquences de pages pour gérer automatiquement l'impression avec des orientations mixées dans une feuille ?

Avant de développer un tel outil, j'aimerais savoir si quelqu'un l'a déjà en magasin.
Merci par avance.

 

[Phil69970]

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

 

[chris]

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...

 

[Dudu2]

Bonjour @Phil69970, @chris,

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

 

[Phil69970]

Re

Tiens moi au courant si tu arrives à tes fins

@Phil69970

 

[Dudu2]

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.

 

[VIARD]

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

 

[Dudu2]

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:

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

 

[VIARD]

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é)