ubiquitour.com

Cómo imprimir un PDF usando VBA

Cómo imprimir un PDF usando VBA

Aplicaciones de Visual Basic (VBA) había diseñado por el uso de Microsoft Visual6 lenguaje de programación. Fue creado para que desarrolladores que permiten funciones definidas por el usuario y automatizar procesos. Puede ser utilizado para crear un documento de Word desde Excel y viceversa, ya que está empotrado en aplicaciones de Microsoft Office. Puede utilizar VBA para imprimir archivos PDF, si entiendes el lenguaje VBA y el editor.

Instrucciones

1 El documento en el que desea escribir el código para abrir el editor de VBA. Haga clic en "Archivo", luego golpeó "Tools". Haga clic en "Macros". Golpe a "Editor de Visual Basic." Si utiliza aplicaciones de 2007, haga clic en "Developer" y presione "Visual Basic".

2 Introduzca este código en la ventana de código:

Sub OpenPDF()

Dim strPDFFileName As String

strPDFFileName = "C:\examplefile.pdf"

(' Esta función siguiente comprueba si el archivo no está ya abierto)

Si no FileLocked(strPDFFileName) entonces

(Si devuelve False, entonces continuar abrir el archivo PDF)

Documents.Open strPDFFileName)

End If

End Sub

Edición "strPDFFileName" agregar el nombre completo del archivo PDF que desea abrir. Reemplace "C:\examplefile.pdf" con la ruta de la ubicación actual del documento PDF.

3 Escriba en este código para preparar para imprimir el PDF:

Sub PrintPDF (strPDFFileName como cadena)

Dim sAdobeReader como cadena

sAdobeReader = "C:\Program Programa\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"

RetVal = Shell (sAdobeReader & "/ P" & Chr(34) & sStrPDFFileName & Chr(34), 0)

End Sub

Modificar la ruta en este código de "Adobe Reader" a la ruta real de su versión.

4 Introduce este código para activar su PDF a imprimir:

Sub CommandButton_Click()

Llamado OpenPDF

Llamada PrintPDF

End Sub