Problem printing bottom border and color

[Rocky0201]

In my macro, I draw a thin line border around a group a cells. The disply looks perfect. I select the cells with the border and right click my mouse and select Format Cells>Border. The border does exist.

The problem is with Print Preview and printing. The last line at the bottom of each page with the exception of the last page does not show/print the border that the Format Cells>Border says it has.

The other anomaly is with the first row (row 1 of the sheet). This is my header row and I set it to be bold with a font color (red family). When print to the color printer, the font is bold but black...

Here is my border statements:

Range("A" & i, "H" & i).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Here is my setting Font statements:

Range("A1:H1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16777024
.TintAndShade = 0
.Bold = True
End With

Any help would be greatly appreciated...

Thanks...