mise en place saut de page

[Hugues]

Bonjour Le Forum,

J'ai un souci dans le code suivant
Je souhaiterais faire une impression sur deux page avec un saut de page localisé à la ligne 53

' Mise en place de l'impression sur deux pages
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
.HPageBreaks(1).Location = Rows("53")
End With

Pouvez vous m'aider ?
Merci par avance
Hugues

 

[Papou-net]

Re : mise en place saut de page

Bonjour Hugues,

Remplaces la ligne :

.HPageBreaks(1).Location = Rows("53")

par celle-ci :

.HPageBreaks.Add before:=Rows(53)

Cordialement.

 

[Hugues]

Re : mise en place saut de page

Merci Papou pour tes instructions

Connais - tu l'instruction pour mettre en page :
1°) sur une seule page
2°) ou sur deux pages

 

[Papou-net]

Re : mise en place saut de page

Merci Papou pour tes instructions

Connais - tu l'instruction pour mettre en page :
1°) sur une seule page
2°) ou sur deux pages

RE :

Je ne suis pas certain de comprendre ta question, car tu as déjà créé ces instructions dans ton code :

.FitToPagesWide = 1
.FitToPagesTall = 2

Il suffit de changer le dernier chiffre sur chaque ligne pour changer le nombre de pages en largeur et en hauteur.

Si cela ne répond pas à ton attente, peux-tu reformuler ta question ?

A te lire.

Cordialement.

 

[Hugues]

Re : mise en place saut de page

merci pour ton aide
je vais essayé