Pour ne plus à avoir à répéter les mêmes clics, une macro d’automatisation de la mise en page de l’impression de la feuille active avec les caractéristiques suivantes :
- Format paysage
- Marge étroite
- Une seule page
- Contenu centré horizontalement et verticalement
Sub ImprimerFeuilleSurPage()
'----------------------------------------------------------------------------------
'Macro d'automatisation de l'impression de la feuille active sur une seule page :
'-Format portrait
'-Marge étroite
'-Une seule page
'-Contenu centré horizontalement et verticalement
'Auteur : Excellons.org
'Date : mai 2015
'----------------------------------------------------------------------------------
With ActiveSheet.PageSetup 'On pointe sur la mise en page de la feuille active
'On définit les marges étroites
.LeftMargin = Application.InchesToPoints(0.236220472440945)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
'On positionne la feuille dans la page
.CenterHorizontally = True 'On centre horizontalement
.CenterVertically = True 'On centre verticalement
.Orientation = xlLandscape 'On passe au format portrait
'On spécifie l'impression sur une page unique
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub