
Impresión por medio de una macro ocultando Columnas
Publicado por Oscar (20 intervenciones) el 02/03/2016 20:43:26
Buenas tardes, he venido desarrollando una planilla con macros y por ser nuevo conozco poco, pero me gusta aprender, tengo un problema con una Macro de Impresión, la cual relaciono:
Lo que pretendo es:
1. Desproteger la hoja
2. Borrar Área de impresión
3. Ocultar las columnas E,F,I,J,U,X
4. Seleccionar el Rango para imprimir ("$D$22:$AG$78")
5. Realizar una vista previa antes de imprimir
Problema:
Cuando ejecuto la Macro,
1. Se desconfigura la planilla
2. Solo muestra de la Columna "M" en adelante
3.Las Columnas de la A a la L las oculta.
Como me pueden ayudar con este tema por favor?
Adjunto archivo de prueba para que ejecuten la Macro y puedan comprender que es lo que estoy haciendo mal.
Muchas gracias por la colaboración.
1
2
3
4
5
6
7
8
9
10
11
Sub Impresion_CA()
'
' Impresion_CA Macro
'
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = ""
Range("E:F,I:J,U:X").Select
Selection.EntireColumn.Hidden = True
Range("D22:AG78").Select
ActiveSheet.PageSetup.PrintArea = "$D$22:$AG$78"
End Sub
Lo que pretendo es:
1. Desproteger la hoja
2. Borrar Área de impresión
3. Ocultar las columnas E,F,I,J,U,X
4. Seleccionar el Rango para imprimir ("$D$22:$AG$78")
5. Realizar una vista previa antes de imprimir
Problema:
Cuando ejecuto la Macro,
1. Se desconfigura la planilla
2. Solo muestra de la Columna "M" en adelante
3.Las Columnas de la A a la L las oculta.
Como me pueden ayudar con este tema por favor?
Adjunto archivo de prueba para que ejecuten la Macro y puedan comprender que es lo que estoy haciendo mal.
Muchas gracias por la colaboración.
- Planilla-Diaria-Prueba.rar(181,3 KB)
Valora esta pregunta


0