XL 2019 Bordure des page

le___destin

XLDnaute Occasionnel
Bonjour
Y-a-t-il une solution pour faire bordure à la page imprimé pars excel comme dans word .. les zone d'impression sont variable les contours des cellules ne donne plus une meilleure solution
 

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc
Re

le__destin
J'ai modifié le code que j'ai posté dans l'autre discussion
Testes le sur un classeur vide
Tu vois qu'il y a bien une bordure autour de la zone d'impression, non ?
VB:
Sub Test_III()
Dim Z_Impression As Range
'ajout pour tester (à supprimer après le test)
Range("B1:G50") = "=ADDRESS(ROW(),COLUMN(),4)"
[Q5] = 10
' //////////// fin ////////////////////////////
Set Z_Impression = Range("B1:G" & [Q5])
ActiveSheet.PageSetup.PrintArea = Z_Impression.Address
Z_Impression.BorderAround 1, xlMedium
'aperçu avant impression
ActiveSheet.PrintPreview
End Sub
 

Discussions similaires

Réponses
6
Affichages
447