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 
 
 
          
