1
Abre tu editor de VB en un documento de Microsoft , haga clic en "Herramientas ", " Macros ", " Editor de Visual Basic ".
2
Escriba el siguiente código en editor:
Sub openPDF ()
strPDFFileName dévil como secuencia
strPDFFileName = "C : \\ examplefile.pdf "
( ' Esta función siguiente comprueba si el archivo no está abierto )
Si no FileLocked ( strPDFFileName ) entonces
( Si devuelve False, seguir abriendo el archivo PDF )
Documents.Open strPDFFileName )
End If End Sub
Reemplazar " strPDFFileName " con el nombre completo de su documento PDF . Reemplazar " C: \\ examplefile.pdf " . Con la ubicación del directorio del documento
3
Escriba el siguiente código para preparar su archivo PDF para imprimir :
Sub PrintPDF ( strPDFFileName como cadena )
sAdobeReader dévil como secuencia
sAdobeReader = " C: \\ Archivos de programa \\ Adobe \\ Acrobat 6.0 \\ Reader \\ AcroRd32.exe "
RetVal = Shell ( sAdobeReader & " /P " & Chr ( 34 ) y sStrPDFFileName & Chr ( 34 ) , 0 ) End Sub
4
Escriba el siguiente código para finalmente imprimir el documento PDF :
Sub CommandButton_Click ()
Call openPDF
Call PrintPDF
End Sub