Jump to content
nesetec

Guardar Pdf pero con múltiple selección de hojas

Recommended Posts

Buenos días, estoy intentando crear una un botón que me ayude a la hora de convertir en PDF.

Lo que quiero es que al darle al botón te pida por pantalla que hojas quieres convertir a pdf o al menos que desde una determinada hoja en adelante te lo convierta todo, el nombre del fichero final con extensión .pdf y ruta donde lo guarde . No tengo ningún conocimiento sobre visual basic pero con ayuda de Internet conseguí hacer una parte (que me pida nombre y ruta del fichero a guardar) pero no se como hacer que la parte de selección de hojas por pantalla. ¿Alguien me puede ayudar por favor?:mellow:

Este es el código que tengo actualmente: 

Sub GUARDAR_EN_PDF()
  Dim FName As Variant
    FName = Application.GetSaveAsFilename( _
        InitialFileName:="FICHERO.pdf", _
        FileFilter:="PDF files, *.pdf", _
        Title:="Export to pdf")
    If FName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FName _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
    End If
End Sub

 

Share this post


Link to post
Share on other sites

Hola @nesetec y bienvenido al foro

Te adjunto un aporte, con el podrás seleccionar las hojas que deseas para convertir a Pdf, ya sean continuas o no. El botón de "Selecionar" tiene 3 funciones, si primero seleccionas 1 [2,3 etc...] hojas y presionas el botón, la selección se va "invertir", si no tienes ninguna seleccionada, al presionar el botón las va seleccionar todas y si vuelves a presionar, las des seleccionara todas

Al presionar "Guardar en Pdf" si no tienes ninguna seleccionada, Excel te pondrá una advertencia, si no te mostrara el cuadro dialogo para escoger la carpeta y listo

Ya nos comentaras como te fue!

 

Saludos 

Generar PDF hojas seleccionadas.rar

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.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png