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?
Leer las respuestas