1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Macro impression

Discussion dans 'Forum Excel' démarrée par KTM, 10 Février 2019.

  1. KTM

    KTM XLDnaute Junior

    Inscrit depuis le :
    16 Septembre 2018
    Messages :
    75
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Salut chers AMIS du forum
    J'utilise la macro ci-après pour faire mes impressions.
    J'aimerais ajouter un bout de code qui va récupérer le contenu de ma cellule B2 en pied de page.

    With ActiveSheet
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = 1
    End With
    Range("A1:R26").PrintOut Copies:=1, Collate:=True


    Merci et bon Weekend à tous
     
  2. Chargement...

    Discussions similaires - Macro impression Forum Date
    Macro numérotation incrémentée pour impression Forum Excel 18 Janvier 2019
    macro pour séléctionner une plage en vue d'une impression Forum Excel 15 Janvier 2019
    XL 2016 [RÉSOLU] Problème avec une macro pour l'impression Forum Excel 25 Octobre 2018
    XL 2010 Macro case à cocher + impression Forum Excel 11 Juin 2018
    macro afficher valeur TCD une après l'autre pour impression separée Forum Excel 20 Avril 2018

  3. Softmama

    Softmama XLDnaute Accro

    Inscrit depuis le :
    24 Août 2010
    Messages :
    1587
    "J'aime" reçus :
    50
    Habite à:
    Neuilly sur Seine
    Utilise:
    Excel 2003 (PC)
    Bonjour,

    Ainsi :
    Code (Text):

    With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .RightFooter = Range("B2")
    End With
    Range("A1:R26").PrintOut Copies:=1, Collate:=True
     

Partager cette page