Por macro é possivel:

Sub SomaRodape()
    With Plan1.PageSetup
        .RightFooter = Application.WorksheetFunction.Sum(Plan1.Columns(2))
    End With
End Sub

Teria como formatar o texto, deixando o texto em negrito, centralizado e com fonte maior???

Fiz aqui e deu certinho

Sub SomaRodape()
    With Plan4.PageSetup
        .CenterFooter = Application.WorksheetFunction.Sum(Plan4.Columns(7))
    End With
End Sub

Para colocar no centro eu usei "CenterFooter" e funcionou mais não consigo aumentar a fonte e colocar negrito.

Tente assim:

Sub SomaRodape()
    With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Negrito""&20" & "Total: " & Application.WorksheetFunction.Sum(Plan4.Columns(7))
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

José, deu certo porem ela não esta atualizando o valor total, só atualiza se eu for no editor da vba e executar a macro por la.

Tente mudar os valores e vizualizar, depois tente pelo editor

vou anexar a planilha.

Olá,

Não entendi bem sua dúvida. Mas os valores só seram atualizados no rodapé se vc executar a macro SomaRodape. No seu arquivo tem a plan "Produção" com o botão "Registrar", coloque como última linha da macro "resumo":

Call SomaRodape

Assim a macro será executada no final do procedimento.

Ciro desculpe-me,

Respondi a pergunta antes de verificar suas instrunções. O correto seria como linha final do evento

Private Sub Workbook_BeforePrint(Cancel As Boolean)
' suas instruções...............


    Call SomaRodape
End Sub

Lembrete: Ao postar um anexo favor compactar.

José criei um botão executando a macro da Soma e funcionou que foi uma beleza, obrigado pela ajuda.