Imprimir ciertas hojas acorde a valor de celda, y publicar en PDF

[pedrosilv]

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