Macro impression

[KTM]

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]

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 :

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