Crear botón e imprimir 2 hojas excels en 1 solo doc pdf

Querría crear botón y asignarle macro que dirija las dos primeras hojas del doc Excel hacia un pdf unificado, es decir, ambas hojas hacia un doc pdf que contendría 2 hojas.

1 respuesta

Respuesta

Pon la siguiente macro en un botón.

Cambia en la macro "unificado.pdf" por el nombre que quieras ponerle al archivo.

Sub Macro9()
'   Por Dante Amor
'
'   Guardar las 2 primeras hojas en PDF
'
    ruta = ThisWorkbook.Path & "\"
    arch = "unificado.pdf"
    Sheets(Array(1, 2)).Select
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ruta & arch, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Sheets(1).Select
    MsgBox "Pdf creado"
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas