Jump to content
Marco Corrales

ANSWERED Impresión PDF con rangos en varias hojas

Recommended Posts

Buenos días, gusto saludarles.

Tengo una herramienta que imprime en PDF, con el siguiente código:

Sub ExportPDF()

Dim sResultadoTipoICM As String
Dim sNombreProducto As String

sResultadoTipoICM = Hoja3.[O5].Value


 If MsgBox("Antes de imprimir en PDF debe guardar el archivo en formato de Excel." & vbNewLine & _
        "" & vbNewLine & _
        "Tenga en cuenta que la impresión en PDF es el último paso en el uso del ICM.", _
    vbYesNo, "¿ Ya guardó el ICM en formato de Excel?") = vbYes Then

        If sResultadoTipoICM = "proTarjetas" Or sResultadoTipoICM = "proSeguimiento" Then

            Sheets(Array("Informe Cualitativo")).Select
        Else
            Sheets(Array("Informe Cualitativo", "Planteamiento")).Select
        End If

    ' NOMBRAR ARCHIVO Y SELECCIONAR CARPETA
    Do
        fName = Application.GetSaveAsFilename(InitialFileName:="Digite el nombre del ICM", Title:="Por favor ingrese nombre de archivo y seleccione carpeta")
            Loop Until fName <> False

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:= _
            False, OpenAfterPublish:=False

End If

End Sub

 

Lo que pasa es que me imprime la hoja "Planteamiento" completamente, no solo el área de impresión y eso no me sirve, por lo que cambié a que solamente me tome los rangos de impresión, para lo cual tengo la siguiente macro:

 

Sub ExportPDF()

Dim sResultadoTipoICM As String
 
Dim r1, r2, r3, r4, rng, rng2 As Range
Set r1 = Hoja1.Range("AreaDeImpresionCualitativo1")
Set r2 = Hoja1.Range("AreaDeImpresionCualitativo2")
Set r3 = Hoja1.Range("area_impresion_hoja1_3")
Set r4 = Hoja8.Range("print_area_planteamiento")
Set rng = Union(r1, r2, r3, r4)
Set rng2 = Union(r1, r2, r3)


sResultadoTipoICM = Hoja3.[O5].Value


 If MsgBox("Antes de imprimir en PDF debe guardar el archivo en formato de Excel." & vbNewLine & _
        "" & vbNewLine & _
        "Tenga en cuenta que la impresión en PDF es el último paso en el uso del ICM.", _
    vbYesNo, "¿ Ya guardó el ICM en formato de Excel?") = vbYes Then

        If sResultadoTipoICM = "proSeguimiento" Then
            rng2.Select
        Else
            rng.Select
        End If

    ' NOMBRAR ARCHIVO Y SELECCIONAR CARPETA
    Do
        fName = Application.GetSaveAsFilename(InitialFileName:="Digite el nombre del ICM", Title:="Por favor ingrese nombre de archivo y seleccione carpeta")
            Loop Until fName <> False
            
        Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fName, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:= _
            False, OpenAfterPublish:=False
End If

End Sub

Sin embargo no me funciona, ya que según entiendo, la Union, no me permite unir más de 3 rangos, por lo que cuando la respuesta es rng, me deja el r4 por fuera.

Las consultas son:

    1. ¿Cómo podré hacer para que todos los rangos sean tomados en cuenta?

    2. ¿Cómo podré prescindir del .select. para optimizar el código?

Les agradezco mucho su tiempo, conocimiento y colaboración que me puedan brindar.

Buen día y quedo atento.

 

Share this post


Link to post
Share on other sites

Hola Abraham, gusto saludarle.

En 26 visualizaciones, nadie lo solicitó.

Se que el foro lo solicita como parte de sus reglas, pero no para todos los casos es aplicable.

Disculpeme, pero, con todo respeto, esto me suena más a excusa que otra cosa.

Pero igual yo estoy muy agradecido con este foro, siempre me han ayudado mucho, por una que no, no se cae el mundo.

Buen día Abraham,

Share this post


Link to post
Share on other sites

Estimado, no sé si existen las "excusas" en un foro en que los que ayudan lo hacen (hacemos) de manera voluntaria, pero en todo caso es tu punto de vista y no intentaré cambiarlos, más sí quería dar una última opinión. 

Abraham Valencia

Share this post


Link to post
Share on other sites

Hola

En 17/9/2019 at 11:20 , Marco Corrales dijo:

Se que el foro lo solicita como parte de sus reglas, pero no para todos los casos es aplicable.

¿Entonces porque no lo subiste?

En 17/9/2019 at 11:20 , Marco Corrales dijo:

Disculpeme, pero, con todo respeto, esto me suena más a excusa que otra cosa.

Por lo visto, ni siquiera sabes dirigirte!, @avalencia es un experto reconocido, en estos temas, la excusa es tuya por no seguir nuestras normas y en todos tus temas creados aquí, no haz subido ningún archivo, con la EXCUSA que es pesado, ¿a caso no puedes hacer un simple ejemplo? asi lo hacen la mayoría de usuarios...

En 17/9/2019 at 11:20 , Marco Corrales dijo:

Pero igual yo estoy muy agradecido con este foro, siempre me han ayudado mucho, por una que no, no se cae el mundo.

En este caso estoy totalmente de acuerdo contigo, pero además tu serás hoy, uno mas que perdió la oportunidad de recibir ayuda y a lo mejor aprender mas, asi que tu accionar deja mucho que desear

Por favor para futuras dudas, SUBE un archivo

 

Saludos!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola Silvia Es exactamente eso lo que deseo realizar, desde ya agradezco tu tiempo, ya lo podemos dar por solucionado. Abrazos 
    • Hola ramonvar (y Luis) Ramón si de todas maneras vas a digitar los 15 números,  y solo deseas evitar ingresar los guiones, lo puedes hacer con formato personalizado, en tipo colocas 000-000-0000000 Pero como te podrás dar cuenta viendo en fx(cuadro de fórmula), el numero en sí no tendrá los guiones, solo será en apariencia. (formato)   o también puedes utilizar una formula en otra celda       Espero te sirva... saludos, Silvia  
    • Buen Día Haplox Excelente respuesta y muchas gracias por la respuesta, tan sencillo y eficaz, el procedimiento, pero la ignorancia no te mata pero te tiene mal, es un dicho popular, acá... demos por solucionado Abrazo
    • No te hace falta macro ni fórmulas, solo dale a la columna un formato personalizado tal que "000-000-0000000"  
    • Buenos Día a todos Si alguien me pudiera dar una mano en esto, les agradecería, tengo columna en una planilla en la cual quiero ingresar números, solo que con este formato xxx-xxx-xxxxxxx este sería ese formato.  Ej. 001-001-0012536, entonces, lo que quiero es que cuando ingreso el primer 001, automáticamente me posicione el cursor en el próximo 001 y así después, ya posicionarme después del carácter "-". Sintetizando, automatizar con una macro, la aparición de los guiones, darme la opción de introducir los tres primeros números y que aparezca el primer guión, luego introducir los otros tres y aparezca el segundo guión "-", para luego completar. Anexo planilla con ejemplos de números Desde ya gracias    FormatoCelda.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy