Programmeren
Visual Basic for Applications (VBA) is de programmeertaal die met Microsoft Office wordt gebruikt om de toepassingen dynamische taken te laten uitvoeren, waaronder het openen en afdrukken van PDF-bestanden. Om deze taak uit te voeren, hebt u een basiskennis van de VBA-taal en de VBA-editor nodig die bij elke versie van de Microsoft Office-programma's is geïnstalleerd. Deze code kan worden gebruikt voor alle Microsoft Office-toepassingen.
Stap 1
Open de VBA-editor in de Microsoft Office-toepassing waarin u de code wilt invoeren. Klik op "Bestand" > "Extra" > "Macro's" > "Visual Basic Editor" in een toepassing van Microsoft Office 2003 of eerder. Klik op "Tabblad Ontwikkelaar" > "Visual Basic" in de 2007-editie van Microsoft Office.
Video van de dag
Stap 2
Klik ergens in het codevenster waar u de code wilt invoegen.
Stap 3
Voeg de code toe om het PDF-bestand te openen. Je code zou er ongeveer zo uit moeten zien:
Sub OpenPDF() Dim strPDFFileName As String 'Bewerken om de volledige bestandsnaam toe te voegen aan het PDF-bestand dat u wilt openen strPDFFileName = "C:\examplefile.pdf" 'This next functie controleert of het bestand nog niet geopend is If Not FileLocked (strPDFFileName) Dan 'Als het False retourneert, ga dan verder met het openen van het PDF-bestand Documenten. Open strPDFFileName) End If End Sub
Kopieer en plak deze code in uw codevenster. Het enige deel van de code dat u hoeft te wijzigen, is het volledige pad naar het PDF-bestand dat u wilt openen. Vervang dus de "C:\examplefile.pdf" door uw eigen bestandspad en naam.
Stap 4
Voeg de code toe om het PDF-bestand af te drukken. De printcode is:
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Dit is het volledige pad naar de Adobe Reader- of Acrobat-toepassing op uw computer sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Einde sub
Het enige deel van deze code dat moet worden gewijzigd, is het volledige pad naar Adobe Reader, Acrobat of een PDF-reader op uw computer.
Stap 5
Gebruik een trigger om de functies aan te roepen. Op deze manier weet de code wanneer deze moet worden uitgevoerd. Gebruik elke gewenste trigger; een formulier, knop, selectievakje of ander formulieritem. Gebruik bijvoorbeeld de "Klik"-verklaring van een knop. Wanneer op de knop wordt geklikt, wordt het PDF-document geopend en vervolgens afgedrukt. De code ziet er als volgt uit:
Sub CommandButton_Click() 'Roep eerst de open-functie aan zodat de PDF kan openen voordat deze wordt afgedrukt. Roep OpenPDF aan' Roep nu de afdrukfunctie aan zodat de PDF kan worden afgedrukt. Bel PrintPDF End Sub
Kopieer gewoon het middelste gedeelte van de bovenstaande code (tussen de Sub en End Sub) naar het formulieritem en de trigger die u besluit te gebruiken.
Dingen die je nodig hebt
Een Microsoft Office-toepassing
PDF-lezertoepassing
Tip
Als u de 2007-versie gebruikt en het tabblad "Ontwikkelaar" niet ziet, klikt u op de knop "Office" en vervolgens op de knop "Opties" onder aan het menu. Klik op "Show Developer tab op het lint" en klik op "OK".
