Macro impression

KTM

XLDnaute Occasionnel
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
 

Softmama

XLDnaute Accro
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
Bonjour,

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

Discussions similaires


Haut Bas