Tente aí. Crie o botão com o nome IMPRIMIR, dê dois cliques (se for no form) e cole o código dentro. O .PrintArea é o intervalo que você deseja imprimir.

Private Sub IMPRIMIR_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
 ActiveSheet.PageSetup.PrintArea = "$A$3:$DL$25"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

eltonpaulo, boa tarde.
Obrigado pela sua resposta, mas o que eu estou querendo é só imprimir o Formulário, segue anexo a planilha para melhor entender.
Quando entro no formulário cadastrar me apresenta um formulário, é esse que eu quero imprimir.
Gostaria de visualizar a impressão no excel antes de imprimir.

Boa Noite
Tente o código:
Me.PrintForm

Ele ira imprimir seu formulário sem precisar transferir os dados para a planilha, mas não sei como se faz para visualizar a impressão. Talvez você consiga adaptar.