XL 2013 Problème d'impression

[Christophe78129]

Bonjour,

J’ai un souci dans une macro avec l’impression, je voudrai une impression recto, mais je n’ai que du recto/verso. J’ai essayé avec l’enregistreur de macro, mais rien à faire. L’imprimante que j’utilise est en réseau.

Si quelqu’un a une idée.

Cordialement.

 

[sylvanu]

Bonjour Christophe,
Etant en réseau vous n'avez aucune chance de jouer sur les paramètres de l'imprimante. Heureusement d'ailleurs.
D'où deux solutions :
1- Vous réduisez la hauteur des lignes pour que ça tienne sur un A4.
2- Vous jouez sur l'option Echelle de la Mise en page avec Vide en largeur et 1 en hauteur. Et vous réduisiez au max les marges Haut et Bas.
Mais ça suppose que vous ne dépassiez pas les 50 véhicules, au delà ça devient petit.
Au delà je ne vois guère de solutions, excepté changer les options sur l'imprimante à la mano.
L'autre plus complexe est d'introduire des sauts de pages, avec :

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Mais il y aura de la mise au point avant que ça soit bon.

 

[Christophe78129]

Bonsoir Sylvanu,
Merci pour la réponse, en fait c'est un peu ce que je voulais faire en ajoutant des lignes vides pour insérer des sauts de page.
Je vais regarder la macro pour essayer de réaliser les sauts de pages toutes les 50 lignes, ne la connaissant pas trop.