Macro que imprima solo hojas que yo elija en 1 solo PDF

Me gustaría saber como puedo modificar la siguiente macro, para que imprima en un pdf solo las hojas que yo seleccione y en ese orden de selección . Hoy me imprime todas las hojas activas y el resto lo hace bien, pero no logro solo seleccionar las hojas y que ademas salgan en el orden en que las elijo.

Sub Impresion1()
'
' Impresion1 Macro
''

Sheets(Array("Hoja 3", "Hoja1", _
"Hoja4", "Hoja6")).Select
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\Ejemplo\" & "Ejemplo1" & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

1 Respuesta

Respuesta
1

H  o la :

Te anexo la macro para enviar las hojas en el orden que desees

Revisa el nombre y el orden de tus hojas en esta línea:

hojas = Array("Hoja3", "Hoja1", "Hoja4", "Hoja6")

La macro:

Sub PdfHojas2()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = "C:\temp\Ejemplo\"
    'ruta = ThisWorkbook.Path & "\"
    arch = "Ejemplo1"
    hojas = Array("Hoja3", "Hoja1", "Hoja4", "Hoja6")
    Set l1 = ThisWorkbook
    una = True
    '
    For h = LBound(hojas) To UBound(hojas)
        If una Then
            una = False
            l1.Sheets(hojas(h)).Copy
            Set l2 = ActiveWorkbook
        Else
            l1.Sheets(hojas(h)).Copy After:=l2.Sheets(l2.Sheets.Count)
        End If
    Next
    l2.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    l2.Close False
    MsgBox "Pdf generado"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas