Ouvrez votre éditeur VBA avec le document dans lequel vous souhaitez saisir le code. Cliquer sur "Fichier," puis appuyez "Outils." Cliquer sur "Macros." Frapper "Visual Editor de base." Si vous utilisez des applications 2007, cliquez sur "Développeur," puis frapper "Visual Basic."
Entrez ce code dans la fenêtre de code:
Sous OpenPDF ()
Dim strPDFFileName As String
strPDFFileName = "C: examplefile.pdf"
('Cette fonction suivante vérifie si le fichier est pas déjà ouvert)
Si Non FileLocked (strPDFFileName) Ensuite,
(Si elle retourne Faux, puis continuer à ouvrir le fichier PDF)
Documents.Open strPDFFileName)
Fin si
End Sub
Modifier "strPDFFileName" ajouter le nom de fichier complet vers le fichier PDF que vous souhaitez ouvrir. Remplacer "C: examplefile.pdf" avec le chemin de l'emplacement réel de votre document PDF.
Tapez ce code pour se préparer à imprimer votre PDF:
Sous ImprimerPDF (strPDFFileName sous forme de chaîne)
Dim sAdobeReader as String
sAdobeReader = "C: Program Files Adobe Acrobat 6.0 lecteur AcroRd32.exe"
RetVal = Shell (sAdobeReader & "/ P" & Chr (34) & sStrPDFFileName & Chr (34), 0)
End Sub
Modifiez le chemin dans ce code de la "Adobe Reader" à la trajectoire réelle de votre version.
Entrez ce code pour déclencher votre PDF à imprimer:
Sous CommandButton_Click ()
OpenPDF Appel
ImprimerPDF Appel
End Sub