Adding horizontal line to footer (VBA)

[deckerp]

Hi,

I would like to add a horizontal line above my footer. Does someone know how to do this?
Thanks.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Calculate

Dim booIsSaved As Boolean
Dim strDatInfo As String

With ThisWorkbook
booIsSaved = .Saved
If .Path <> "" Then
strDatInfo = _
.BuiltinDocumentProperties("Last save time")
Else
strDatInfo = "not saved"
End If

If Year(Now()) = 2011 Then
    ActiveSheet.PageSetup.LeftFooter = "&08" & "Copyright © " & Year(Now) & " | Last saved: " & strDatInfo & Chr(10) & "&Z&F"
Else
    ActiveSheet.PageSetup.LeftFooter = "&08" & "Copyright © 2011-" & Year(Now) & " | Last saved: " & strDatInfo & Chr(10) & "&Z&F"
End If

.Saved = booIsSaved
ActiveSheet.PageSetup.RightFooter = _
    "&08" & "Page " & "&P" & " of " & "&N" & Chr(10)

End With
End Sub

 

[Peter_SSs]

See if adding something like this to your footers help.

ActiveSheet.PageSetup.LeftFooter = String(100, "_") & vbLf & "&08" & "Copyright © " & Year(Now) & " | Last saved: " & strDatInfo & Chr(10) & "&Z&F"

 

[deckerp]

many thanks, it works partly.

how can I include the line to the right section too (no gap between the lines) or simply put it across the whole page (100%) ?

If Year(Now()) = 2011 Then
    ActiveSheet.PageSetup.LeftFooter = String(100, "_") & vbLf & "&08" & "Copyright © " & Year(Now) & " | Last saved: " & strDatInfo & Chr(10) & "&Z&F"
Else
    ActiveSheet.PageSetup.LeftFooter = String(100, "_") & vbLf & "&08" & "Copyright © 2011-" & Year(Now) & " | Last saved: " & strDatInfo & Chr(10) & "&Z&F"
End If

.Saved = booIsSaved
    [B]ActiveSheet.PageSetup.RightFooter = _[/B]
"&08" & "Page " & "&P" & " of " & "&N" & Chr(10)
End With
End Sub

 

[Peter_SSs]

Try experimenting by changing the 100 to other numbers. 109 was about right for my page. I think you just need it in the left footer if you want it to go right across the page.