Mise en page

Re : Mise en page

OK, trouver

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/01/2008 par J.R
'

'
' With ActiveSheet.PageSetup
'.LeftHeader = ""
' .CenterHeader = ""
'.RightHeader = ""
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
' .LeftMargin = Application.InchesToPoints(0.787401575)
' .RightMargin = Application.InchesToPoints(0.787401575)
'.TopMargin = Application.InchesToPoints(0.984251969)
' .BottomMargin = Application.InchesToPoints(0.984251969)
' .HeaderMargin = Application.InchesToPoints(0.4921259845)
' .FooterMargin = Application.InchesToPoints(0.4921259845)
' .PrintHeadings = False
'.PrintGridlines = False
' .PrintComments = xlPrintNoComments
' .PrintQuality = 300
' .CenterHorizontally = False
' .CenterVertically = False
' .Orientation = xlLandscape
'.Draft = False
' .PaperSize = xlPaperA4
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = 100
' End With