Visualizar Impressão

Gostaria de fazer um botão para o cliente visualizar impressão antes de realmente imprimir?
O código é muito simples, segue abaixo:

 

Sub Visualiza_Impressao()

   'Define área de impressão
   ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(46, 7)).Address

   'Chama a tela de visualização de impressão
   Application.Dialogs(xlDialogPrintPreview).Show

End Sub

O Agora se você quer impedir a impressão de qualquer maneira então veja: Cancelar impressão com vba