Border In Each Page Break

Bottom border each page, Any suggestions?

Any Help will be highly appreciated,

Thanks in advance

Could you be so kind as to supply your solution here.. it may help someone in the future searching the same topic.

You have the thread marked as Solved

If all your rows have bottom borders, then you should get the bottom border of the last line on the page.. have you printed to see... sometimes the graphic representation shown on screen in Page Preview does not exactly match what you get on paper.

I see what you want.. you want bold border to automatically be inserted at bottom of each page...

not sure you can do that... maybe someone can figure it out with VBA... but I am not sure Excel native functionality can do that...

one of andy popes taken from ozgrid

Sub BorderPages() 
     
    Dim rngBorder As  Range 
    Dim lngLastRow As Long 
    Dim lngLastCol As Long 
    Dim lngHPBreak As Long 
    Dim lngVPBreak As Long 
    Dim lngRow As Long 
    Dim lngCol As Long 
    Dim rngAC As Range 
     
    With ActiveSheet 
        Set rngAC = ActiveCell 
        lngLastRow = .UsedRange.Cells(.UsedRange.Rows.Count, 1).Row 
        lngLastCol = .UsedRange.Cells(1, .UsedRange.Columns.Count).Offset(1, 0).Column 
        .Cells(lngLastRow + 1, 1).Activate 
         
        lngRow = 1 
        For lngVPBreak = 1 To .VPageBreaks.Count 
            lngCol = 1 
            For lngHPBreak = 1 To .HPageBreaks.Count 
                Set rngBorder = .Range(.Cells(lngRow, lngCol), _ 
                .Cells(.HPageBreaks(lngHPBreak).Location.Row - 1, .VPageBreaks(lngVPBreak).Location.Column - 1)) 
                rngBorder.BorderAround xlContinuous, xlThick 
                lngRow = .HPageBreaks(lngHPBreak).Location.Row 
            Next 
             
            Set rngBorder = .Range(.Cells(lngRow, lngCol), .Cells(lngLastRow, .VPageBreaks(lngVPBreak).Location.Column - 1)) 
            rngBorder.BorderAround xlContinuous, xlThick 
             
            lngCol = .VPageBreaks(lngVPBreak).Location.Column 
        Next 
        lngRow = 1 
        For lngHPBreak = 1 To .HPageBreaks.Count 
            Set rngBorder = .Range(.Cells(lngRow, lngCol), _ 
            .Cells(.HPageBreaks(lngHPBreak).Location.Row - 1, lngLastCol)) 
            rngBorder.BorderAround xlContinuous, xlThick 
            lngRow = .HPageBreaks(lngHPBreak).Location.Row 
        Next 
        Set rngBorder = .Range(.Cells(lngRow, lngCol), .Cells(lngLastRow, lngLastCol)) 
        rngBorder.BorderAround xlContinuous, xlThick 
        rngAC.Activate 
    End With 
     
End Sub