Exportar datos de una hoja Excel con macros con extensión PDF

En este ejemplo les muestro el código para exportar una hoja de Excel con macros con la extensión PDF.

Para ello realizamos lo siguiente:

1. Crear una hoja con datos.
2. Ingresar el editor VBA Excel o presiona la combinación de telcas Alt + F11.
3. Damos click en el menú Insertar, Modulo.
4. Escribimos el siguiente código.

Sub GenerarPDF()

Dim strnombre As String

Dim strruta As String

strruta = "C:\Users\Dell\Desktop\"

strnombre = "ReportePDF.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

strruta & strnombre, Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

Hoja con datos

Reporte generado en PDF

OpenAfterPublish:=False 'Aquí estamos indicando que no deseamos abrir el PDF una vez generado.

OpenAfterPublish:=True 'Aquí estamos indicando que si deseamos abrir el PDF una vez generado.