Macro to add a boarder line under my page breaks?

[tonywatsonhelp]

Hi Everyone,
Not sure if this is possible?

I have a document with lots of rows of data,
The columns used are B to H

Now the data is set to hide unused rows in excel and everything works great except when i create a pdf if a page breaks in the middle of area it looks wrong as theres on boarder

EXample:

So I have
Data
i here
and its
all part on one section
so the	so page break here! for example!	boarder bottom row if this?
boarder goes around all these cells
but the page is broken lets say half way
so the pdf doesnot have a boarder at the top and bottom of the pages
so i would like a macro to just adda black boarder bottom row of all page breaks

So in its sim[plest form
if the vba was in engllish it would read

for each row in range B2:H & last row,
if row is a page break row then
Button line boarder in black = true

can anyone help me with this please?

Thanks

Tony

 

[Anthony47]

Not sure I understood your question, anyway the following macro will set the bottom of each horizontal page break with a solid thin black line:

Sub SetBottomPage()
Dim HPB
'
ActiveWindow.View = xlPageBreakPreview
For Each HPB In ActiveSheet.HPageBreaks
    With Application.Intersect(ActiveSheet.UsedRange, Rows(HPB.Location.Row - 1))
        .Borders.LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).ColorIndex = 0
        .Borders(xlEdgeBottom).TintAndShade = 0
        .Borders(xlEdgeBottom).Weight = xlThin
    End With
Next HPB
ActiveWindow.View = xlNormalView
'
End Sub

Bye

 

[tonywatsonhelp]

Hi Anthony,
that is exacaty what i needed thats very much for your help
Tony