EXCELer

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.