About Me

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

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2009-08-18

Se pretendermos colocar o resultado total, por exemplo de uma soma, no rodapé de uma impressão, podemos utilizar o seguinte código:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim wkSht As Worksheet

    For Each wkSht In Me.Worksheets

        With wkSht.PageSetup
            .CenterFooter = "TOTAL: " & Format(Range("M55").Value, " #,##0.00")
        End With

    Next wkSht

End Sub

Nota: Este código deverá estar no workbook module (Este Livro ou This Workbook)

 

Tópicos relacionados: