Mise en page

Le
Michel (pen ar bed)
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de
l'impression une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18183031
Bonjour,
Un truc dans le genre de :

Sub sligne()
'MPFE le 20/12/2008
dim i as integer, laLigNe as long
For i = 1 To ActiveSheet.HPageBreaks.Count
laligne = ActiveSheet.HPageBreaks(i).Location.Row
Range(Cells(laligne - 1, 1), Cells(laligne - 1, 7)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next i
End Sub

appelé dans l'évènement beforeprint devrait pouvoir convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel (pen ar bed)" news:
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de
l'impression une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.




Michel (pen ar bed)
Le #18183701
Philippe.R avait prétendu :
Bonjour,
Un truc dans le genre de :

Sub sligne()
'MPFE le 20/12/2008
dim i as integer, laLigNe as long
For i = 1 To ActiveSheet.HPageBreaks.Count
laligne = ActiveSheet.HPageBreaks(i).Location.Row
Range(Cells(laligne - 1, 1), Cells(laligne - 1, 7)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next i
End Sub

appelé dans l'évènement beforeprint devrait pouvoir convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel (pen ar bed)" news:
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de l'impression
une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.







Merci, je regarde et j'essaie

GS
Publicité
Poster une réponse
Anonyme