Imprimir por macro me cuelga excel

Muy buenas, tengo èste código que me imprime un cuatrimestre dado,
ahora bien, al llegar al punto "Selection.PrintPreview", se me queda
colgado Excel. Tengo la versiòn 2007.
Private Sub CommandButton1_Click()
'CODIGO QUE IMPRIME CUATRIMESTRE SELECCIONADO
Sheets("LIBROVENTAS").Activate
Range("A2", Range("M65536").End(xlUp)).Sort Key1:=Range("A14"),
Order1:=xlAscending, Header:=xlNo
Application.ScreenUpdating = False
Select Case TextBox1
Case "ENE-ABR"
Area = 1
Case "MAY-AGO"
Area = 2
Case "SET-DIC"
Area = 3
End Select
Area = Val(Area & Val(TextBox2))
Range("M2").Select
Do While ActiveCell <> Area
ActiveCell.Offset(1, 0).Select
Loop
Rango1 = "A" & ActiveCell.Row
Do While ActiveCell = Area
ActiveCell.Offset(1, 0).Select
Loop
Rango = Rango1 & ":" & "M" & ActiveCell.Row - 1
'Range("A1").Select
Range(Rango).Sort Key1:=Range(Rango1), Order1:=xlAscending,
Header:=xlNo
Range(Rango).Select
Selection.PrintPreview
End Sub
Antes en vez de "Selection.PrintPreview" tenía ésta línea "Range
(Rango).PrintOut Copies:=1, Preview:=True, Collate:=True" y también se
colgaba.
Cual puede ser el problema?