Bonjour,
Je souhaite mettre en page toutes les feuilles d’un classeur. J’y arrive à l’aide de l’enregistreur de macro mais c’est vraiment trop lent. Mon code est le suivant.
Sub Macro4()
‘
‘ Macro3 Macro
‘
‘
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftFooter = “&D”
.CenterFooter = “&F”
.LeftMargin = Application.InchesToPoints(0.31496062992126)
.RightMargin = Application.InchesToPoints(0.31496062992126)
.TopMargin = Application.InchesToPoints(0.354330708661417)
.BottomMargin = Application.InchesToPoints(0.47244094488189)
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 0
End With
Application.PrintCommunication = True
End Sub
Quelqu’un a une idée ?
Merci,
Paul