Imprimir ciertas hojas acorde a valor de celda, y publicar en PDF
publicado
Buen día estimado foristas:
Es un gusto saludarles por este medio a través del cual siempre me han apoyado en mejorar o corregir algunas macros que utilizo en mi trabajo. Y hoy tengo un error en una macro que no he podido solucionar, por lo que acudo a ustedes para saber si pueden ayudarme en esta tarea.
El asunto va así. Tengo un archivo con varias hojas, y quisiera imprimir ciertas hojas, de acuerdo al valor que obtengo en una celda.
Por ejemplo si en la celda C3 de la hoja INICIO hay un valor de 1, entonces deseo imprimir las Hoja2, Hoja3 y Hoja10. Si ese valor cambia a 2, cambiarían las hojas a imprimir. Con esta premisa, estoy usando la siguiente macro, pero no he logrado hacerla funcionar.
Sub Impr()
Application.ScreenUpdating = False
T1 = Hoja2.Range("B2:G17")
T2 = Hoja3.Range("B6:H11")
T3 = Hoja4.Range("D5:J16")
T4 = Hoja5.Range("A1:B17")
T5 = Hoja6.Range("F2:N18")
T6 = Hoja7.Range("G2:L14")
T7 = Hoja8.Range("D2:E16")
T8 = Hoja9.Range("G1:I17")
T9 = Hoja10.Range("E5:G17")
Var = Hoja1.Range("C3").Value
Select Case Var
Case 1: Sheets(Array(T1, T2, T9)).Select
Case 2: Sheets(Array(T1, T2, T3, T4, T9)).Select
Case 3: Sheets(Array(T1, T2, T5, T6, T9)).Select
Case Else: Sheets(Array(T1, T2, T7, T8, T9)).Select
End Select
Hoja1.Activate
Application.PrintCommunication = False
Application.ScreenUpdating = False
End Sub
Además de imprimir esas hojas deseo que las mismas se publiquen en un solo archivo PDF, pero en esto aún no tengo idea de cómo hacerlo. Si pudieran darme sus sugerencias se los agradecería mucho.
Buen día estimado foristas:
Es un gusto saludarles por este medio a través del cual siempre me han apoyado en mejorar o corregir algunas macros que utilizo en mi trabajo. Y hoy tengo un error en una macro que no he podido solucionar, por lo que acudo a ustedes para saber si pueden ayudarme en esta tarea.
El asunto va así. Tengo un archivo con varias hojas, y quisiera imprimir ciertas hojas, de acuerdo al valor que obtengo en una celda.
Por ejemplo si en la celda C3 de la hoja INICIO hay un valor de 1, entonces deseo imprimir las Hoja2, Hoja3 y Hoja10. Si ese valor cambia a 2, cambiarían las hojas a imprimir. Con esta premisa, estoy usando la siguiente macro, pero no he logrado hacerla funcionar.
Sub Impr() Application.ScreenUpdating = False T1 = Hoja2.Range("B2:G17") T2 = Hoja3.Range("B6:H11") T3 = Hoja4.Range("D5:J16") T4 = Hoja5.Range("A1:B17") T5 = Hoja6.Range("F2:N18") T6 = Hoja7.Range("G2:L14") T7 = Hoja8.Range("D2:E16") T8 = Hoja9.Range("G1:I17") T9 = Hoja10.Range("E5:G17") Var = Hoja1.Range("C3").Value Select Case Var Case 1: Sheets(Array(T1, T2, T9)).Select Case 2: Sheets(Array(T1, T2, T3, T4, T9)).Select Case 3: Sheets(Array(T1, T2, T5, T6, T9)).Select Case Else: Sheets(Array(T1, T2, T7, T8, T9)).Select End Select Hoja1.Activate Application.PrintCommunication = False Application.ScreenUpdating = False End Sub
Además de imprimir esas hojas deseo que las mismas se publiquen en un solo archivo PDF, pero en esto aún no tengo idea de cómo hacerlo. Si pudieran darme sus sugerencias se los agradecería mucho.
De antemano, agradezco sus observaciones y apoyo.
Saludos cordiales
Impresión.xls