EXCELer

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:

• Print Tips for Excel - Ron de Bruin
• BeforePrint Event [Excel 2003 VBA Language Reference]