Forcing a Border at the Page Break

[mmarzouk]

Hi,

I am trying to have the last row in each print page have a xlmedium border line. When I look at the print preview, there is not border. Below is my latest attempt to add the border, I loop through every single column and add a border (Cell below PBreak and Cell above PBreak). I have merged cells above the PBreaks and below the PBreaks but none of them intersect the page breaks.

Any idea what could be the issue. Is there a setting that prevents having borders?

    For CouNter = 1 To LaSt_Col        With WS.Range(Cells(PbLoc - 1, CouNter), Cells(PbLoc - 1, CouNter)).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .Color = RGB(0, 0, 0)
        End With
        
        With WS.Range(Cells(PbLoc, CouNter), Cells(PbLoc, CouNter)).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .Color = RGB(0, 0, 0)
        End With
    Next CouNter

Excel 2010

Regards,
Mahmoud

 

[mmarzouk]

And just to add to issue above. After the macro runs, I go manually remove the added border and then re-add it, it prints just fine. So I have no clue what I am missing here.