Discussion :

[frag132]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[frag132]

bonjour et merci pour ta réponse .
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