Vba excel agrandir la zone d'impression a droite

Bonsoir
Pb VBA excel
Sur un fichier de 7 colonnes et de 400 lignes a imprimer depuis un bouton sur une form, je coupe les 200 dernieres lignes pour les coller a coté des 200 premieres lignes.
A l'impression excel imprime les 200 lignes cotes a cotes sur 2 feuilles
et mes tentatives de fusionner ces deux pages autrement qu'a la main sont vaines

ActiveSheet.VPageBreaks(1).Location = ActiveSheet.Range("Q1")
ou
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

plantent et je ne trouve pas de post pour avancer le probleme.
si vous aviez une idée!!!!

merci

Citation:

---

Envoyé par mb95

A l'impression excel imprime les 200 lignes cotes a cotes sur 2 feuilles
et mes tentatives de fusionner ces deux pages autrement qu'a la main sont vaines

---

et bien lance l'enregistreur de macro, avant d'effectuer une fusion ... tu aura ensuite une idée du code à générer...?

.. sinon qu'elle méthode utilise tu pour fusionner "à la main" ..?

Salut
j'ai deja tenté l'enregistrement de macro, c'est la que j'ai recuperé
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Peut etre ai je omis une selection ou une declaration, ça plante.
Pour la fusion "a la main": j'ai sauvegardé le fichier avec les 2x 200 lignes, je l'ai ouvert ,demandé l'affichage des sauts de page et deplacé le saut vertical
avec la souris comme excel me la conseillé, l'impression correspond a ce que je voudrais, donc je persevere !!! 'c'est cet enregistrement que j'ai fait d'ou le
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

merci de ton aide
marc