Mise en page 1/1

3 May 2021

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
Commentez cet article

Annuler
Q