insérer page sans en tête/pied de page ?!

Monie

XLDnaute Nouveau
Bonjour à tous,
j'ai (encore) besoin de vos conseils pour un soucis de mise en page...
Est-ce qu'il est possible d'insérer des pages sans en tête ni pieds de page quand on a une mise en page personnlisée (titre, numérotation,...) dans le cadre d'une impression recto-verso...
Je ne sais pas si j'ai été assez claire ?!
Merci d'avance pour votre aide :)
 

jeromegmc

XLDnaute Occasionnel
Salut,

Voici une mise en page Excel par défaut, à exécuter quand tu insères ta feuille:


Code:
   With ActiveSheet.PageSetup
        .PrintTitleRows = ''
        .PrintTitleColumns = ''
    End With
    ActiveSheet.PageSetup.PrintArea = ''
    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 = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With



A+
 

Discussions similaires

Statistiques des forums

Discussions
300 999
Messages
1 989 232
Membres
210 428
dernier inscrit
AKlearning