Ajuster saut de page

Version imprimable

Bonjour,

Je n'arrive pas a definir mon saut de page sur mon tcd.. Pour le moment j'ai bien recu a definir ma zone a imprimer avec printarea.
Code:

1 2 3 Range(Cells(3, 1), Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns, xlPrevious).Column)).Select ActiveSheet.PageSetup.PrintArea = _ ActiveCell.CurrentRegion.Address
Si il y a un moyen de faire en sorte qu'il n'y ai pas de saut de page dans mon range mais plutot sur le bord du printarea pour que tout soit imprimable d'un coup...
Merci !

Bonjour,

Code:

1
2
3
4
5
6
7
Set c = Range(Cells(3, 1), Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
    Cells.Find("*", , , , xlByColumns, xlPrevious).Column))
ActiveSheet.PageSetup.PrintArea = c.CurrentRegion.Address
With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

11/02/2013, 13h33
frag132

bonjour et merci pour ta réponse :ccool:.
J'ai essayé ton morceau de code en remplacant le mien avec, mais j'obtiens pas de resultat different, j'ai toujours les sauts de pages qui se mettent au milieu de ma zone d'impression