Automatisk ramme bund under sidste række på hver side

I ThisWorkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
PB = ActiveSheet.HPageBreaks.Count
For i = 1 To PB
  q = ActiveSheet.HPageBreaks(i).Location.Row - 1

Range(Cells(q, "B"), Cells(q, "j")).Select
 
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Next
End Sub


Kan du selv lave den færdig, den gør det ikke på den sidste og du skal selv fjerne linierne igen.

Jeg glemte desvære at skrive at det er i Excel 95 det skal bruges.

Prøv at se om du ikke kan sætte linien ind i sidefoden ?

Det har jeg prøvet, det virker også fint, undtagen på den sidste side, der vil linien selvfølgelig også være i bunden af siden, hvor den måske skulle være midt på siden, hvor siderammerne som jeg også gerne vil have måske slutter. Hvis jeg så bare kunne få siderammerne ned til bundlinien, så var det ligemeget?

Kabbak dit svar virker jo i de andre ver. hvis du ligger et svar får du dine point, tusind tak for din villighed til at hjælpe

Lukker