Imprimir

Hola a todos
estoy tratando de hacer un UserForm que llame a imprimir las areas que
quiero, la idea es como hace excel que te da la opcion de imprimir desde -
hasta
Ya hice el Form y arme esta macro pero no funciona , alguien podria decirme
como se hace?

Private Sub UserForm_Initalize()
txtPrincipio = ""
txtfin = ""

End Sub


Private Sub cmdCancelar_Click()
Me.Hide
Unload Me
End Sub

Private Sub cmdAceptar_Click()
Dim NumIni As Variant
Dim Numfin As Variant
Dim Area As Range
Area_1 = Range("B5:N44").Select
Area_2 = Range("B45:N83").Select
Area_3 = Range("B85:N123").Select

NumIni = txtPrincipio
Numfin = txtfin
Area = Array("Area_1", "Area_2", "Area_3")
For i = NumIni To Numfin
ActiveSheet.PageSetup.PrintOut = Area
Next i

End Sub
desde ya muchas gracias
Enrique