Macro para imprimir un archivo PDF desde Excel
En este artículo te enseñaremos cómo crear una macro en Excel para imprimir un archivo PDF de forma automática. Con esta macro podrás ahorrar tiempo y hacer que tu trabajo sea más eficiente.
Para crear esta macro necesitarás tener conocimientos básicos de programación en VBA (Visual Basic for Applications) y tener instalado Adobe Acrobat en tu computadora.
Sigue leyendo para aprender cómo crear esta macro y mejorar tu flujo de trabajo.
¿Cómo crear una macro para imprimir un archivo PDF desde Excel?
El primer paso para crear una macro para imprimir un archivo PDF desde Excel es abrir el archivo Excel en el que deseas agregar la macro. Luego, presiona ALT + F11 para abrir el editor de Visual Basic.
A continuación, crea un nuevo módulo haciendo clic en "Insertar" y luego en "Módulo". En el nuevo módulo, escribe el siguiente código:
Sub ImprimirPDF()
Dim AcroApp As Acrobat.CAcroApp
Dim theDocument As Acrobat.CAcroPDDoc
Dim jso As Object
Set AcroApp = CreateObject("AcroExch.App")
Set theDocument = CreateObject("AcroExch.PDDoc")
theDocument.Open "C:RutaArchivo.pdf"
Set jso = theDocument.GetJSObject
jso.print (1, 0, 0, True)
theDocument.Close
AcroApp.Exit
Set AcroApp = Nothing
Set theDocument = Nothing
End Sub
Este código abrirá el archivo PDF y lo imprimirá automáticamente. Asegúrate de cambiar "C:RutaArchivo.pdf" por la ruta de tu archivo PDF.
Finalmente, guarda tu macro y cierra el editor de Visual Basic.
¿Cómo ejecutar la macro para imprimir el archivo PDF?
Para ejecutar la macro, simplemente abre el archivo Excel en el que agregaste la macro y presiona ALT + F8. Se abrirá una ventana con la lista de macros disponibles, selecciona la macro "ImprimirPDF" y haz clic en "Ejecutar".
Después de unos segundos, el archivo PDF se imprimirá automáticamente.
Recuerda que debes tener instalado Adobe Acrobat en tu computadora para que la macro funcione correctamente.
¿Cómo modificar la macro para imprimir varios archivos PDF?
Si necesitas imprimir varios archivos PDF con la misma macro, simplemente modifica el código de la macro para que abra y cierre cada archivo PDF en un bucle. El siguiente código es un ejemplo de cómo hacerlo:
Sub ImprimirPDFs()
Dim AcroApp As Acrobat.CAcroApp
Dim theDocument As Acrobat.CAcroPDDoc
Dim jso As Object
Dim Filename As String
Dim FolderPath As String
Dim i As Integer
FolderPath = "C:RutaArchivos"