VBA Excel - Exportar un rango de Excel a PDF

5 dic 2018

VBA Excel - Exportar un rango de Excel a PDF

En algunas ocasiones necesitamos exportar de Excel a PDF, en la actualidad hay muchas herramientas que nos ayudan con esa tarea, como por ejemplo una macro sencilla.

Para que la macro funcione hay que seguir los siguientes pasos:
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. Insertar un módulo.
3. Pegar el siguiente código en el módulo que se insertó:

Sub Exportar_pdf()
Dim Carpeta, Archivo As String 'definimos variables
On Error Resume Next 'continuamos con la macro aunque haya un error
Application.ScreenUpdating = False
MsgBox "Seleccione la carpeta donde se guardarán los PDF"
With Application.FileDialog(msoFileDialogFolderPicker) 'se abre el cuadro de dialogo para seleccionar la carpeta donde se guardarán los PDF
.Title = "Seleccionar Carpeta"
.ButtonName = "Seleccionar Carpeta"
If .Show = -1 Then
Carpeta = .SelectedItems(1) 'guardamos la ruta de la carpeta
Else
MsgBox "No se selecciono ninguna ruta"
End
End If
End With
NombreArchivo = "Archivo Prueba PDF" 'nombre del archivo
Ar = Carpeta & "\" & NombreArchivo & ".pdf" 'ruta y nombre del archivo
Hoja1.PageSetup.PrintArea = "A1:G15" 'el contenido de nuestro pdf
Hoja1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ar, quality:=xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas:=False, Openafterpublish:=True
' xlQualityStandard = calidad del pdf
Application.ScreenUpdating = True
End Sub