Cell border before page break

P

Pygmalion

Hello experts!

Is it somehow possible to tell Excel to put bottom cell border to the
last cell before each page break?

Thanks for the answer.

Regards.
 
D

Don Guillett

try
Sub dopagebrk()
With ActiveSheet
For i = 1 To .HPageBreaks.Count
.HPageBreaks.Item(i).Location.Borders(xlEdgeBottom).LineStyle =
xlContinuous
Next i
End With
End Sub
 
Top