Bom dia, Marcos.

Experimente colocar o código abaixo em "EstaPasta_de_trabalho" no editor do VBA:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ThisWorkbook.PrintOut Preview:=True
End Sub

Faça os testes e dê retorno!

Att.,

Boa-tarde amigo,. infelizmente coloquei o código e não funcionou, ou eu é que estou colocando no lugar errado ou fazendo algo errado.

Creio que o evento deve ser Before Save, se não me engano não há o after

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.PrintOut Preview:=True
End Sub

Obrigado amigo, pela sua atenção e resposta, mais este evento ele abriu a pré-visulaizacao da impressão, tem como enviar diretamente para a impressora padrão? E mais, Estou trabalhando com uma pasta de trabalho com varias planilhas, o que eu desejo imprimir é somente a planilha ativa ao clicar em salvar.

Experimente:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PrintOut Preview:=False
End Sub

Ok , resolvido amigo. muito obrigado.