Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-03-05
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.