Dick Kusleika (Daily Dose of Excel) mostrou, há algum tempo num newsgroup de excel, como colocar uma linha no rodapé, para impressão:
Sub LinhaRodape()
Dim sh As Worksheet
Dim wf As WorksheetFunction
Set sh = ActiveSheet
Set wf = Application.WorksheetFunction
sh.PageSetup.LeftFooter = wf.Rept("_", 88) & _
vbLf & sh.PageSetup.LeftFooter
End Sub
NOTA – o valor 88 é modificável pelo tamanho da zona de impressão.