Excel Preciso de um VBA para impressão no Excel

[Allex66sandro]

Tenho uma planilha e gostaria de criar um botão para impressão, porém como tem muitas colunas gostaria de um VBA para ajustar todas as colunas em uma página.

Se possível imprimir a área selecionada também

[Basole]

Segue exemplo basico:

 

Sub SeuBotao()
With ActiveSheet.PageSetup
     .PrintArea = Selection.Address
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 1
End With

     ActiveSheet.PrintOut copies:=1
     
End Sub

 

[Allex66sandro]

Só mais uma dúvida, será que tem como aparecer a tela de impressão antes de imprimir direto?

[Basole]

Segue o codigo atualizado

 

Sub SeuBotao()

With ActiveSheet
    With .PageSetup
         .PrintArea = Selection.Address
         .Zoom = False
         .FitToPagesWide = 1
         .FitToPagesTall = 1
    End With
     
        .PrintPreview
        .PrintOut copies:=1
End With
     
End Sub