Macro para imprimir rango, incluyend celds ocults
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¡
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¡
1 respuesta
Respuesta de calvuch
1
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
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
