KTM
XLDnaute Impliqué
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
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