Macro para imprimir rango, incluyend celds ocults

Respuesta de
a
Avatar
Usuario
Hola a todos,
Necesito de su ayuda para hacer una macro para imprimir una rango de una hoja en excel pero mi problema es que ese rango tiene celdas ocultas¡
 
Normalmente uso la macro:
Sub PrintSelec()
    Range("A1:W175").Select
    Range("W1").Activate
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Pero ahora en este rango tengo ocultas las filas 40 a 175.
¿Cómo le hago para que si imprima lo oculto?
Muchas gracias por el apoyo que me puedan brindar¡
Avatar
Experto
Hola
Prueba
Sub PrintSelec()
    Rows("40:175").Select
    Selection.EntireRow.Hidden = False
    Range("A1:W175").Select
    Range("W1").Activate
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Rows("40:175").Select
    Selection.EntireRow.Hidden = True
End Sub
Antes de imprimir muestras el rango 40 a 175 y luego que imprimes, lo vuelves a ocultar