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:

2009-08-15

A propriedade PageSetup é utilizada para obter o objecto PageSetup, o qual contém todos os atributos do setup de uma folha – margem esquerda, fim de página, tamanho da folha, cabeçalho, rodapé, etc.

Exemplo:

 
'---------------------------------------------------------------------------------------
' Procedure : Workbook_BeforePrint
' DateTime  : 15-08-2009 00:15
' Author    : JorgeRod
' Purpose   :
'---------------------------------------------------------------------------------------
'
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
    Worksheets("Folha1").PageSetup.LeftHeader = Format(Date, "d mmmm,yyyy")
 
End Sub
 
 
Tópicos relacionados: