Sådan bruges VBD til at åbne og udskrive en PDF-fil

Indhold

retninger
tips
Hvad du har brug for

Visual Basic for Applications (VBA) er det programmeringssprog, der bruges af Microsoft Office, til applikationer til at udføre dynamiske opgaver som f.eks. Åbning og udskrivning af PDF-filer. For at opnå dette skal du have grundlæggende kendskab til sproget og VBA-editoren, som er installeret i alle versioner af Microsoft Office-programmer. Denne kode kan bruges til alle dine applikationer.

retninger

Se profil (ANSI billede af DBX60 fra Fotolia.com)

Åbn VBA-editoren i Office-programmet, hvor du vil indtaste koden. Gå til "Fil", derefter "Værktøjer", derefter "Makroer" og endelig "Visual Basic Editor" i en version af Microsoft Office 2003 eller tidligere. For 2007-udgaven, gå til fanen "Udvikler" og klik på Visual Basic.
Klik i kodesvinduet, hvor du vil indtaste koden.
Tilføj koden for at åbne en PDF-fil. Din kode skal se sådan ud

Sub OpenPDF () Dim strPDFFileName Som String 'Rediger ved at tilføje det fulde filnavn, du vil åbne i stedet for' strPDFFileName '= "C: examplefile.pdf "' Følgende kommando kontrollerer, om filen allerede er åben: Hvis Ikke FileLocked (strPDFFileName) og derefter 'Hvis resultatet er False, fortsæt åbningen af Documents.Open fil strPDFFileName) Afslut hvis Slut Sub

kopiér og indsæt denne kode i kodevinduet. Den eneste del, du skal ændre, er den fulde sti for den PDF-fil, du vil åbne. Udskift derefter "C: examplefile.pdf " med stien til din fil.
Koden til at udskrive filen er

Sub PrintPDF (strPDFFileName som streng) Dim sAdobeReader as String 'Dette er den fulde sti til Adobe Reader eller til Acrobat på din computer sAdobeReader = "C: Programmer Adobe Acrobat 6.0 Reader AcroRd32.exe " RetVal = Shell (sAdobeReader & "/ P " & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub

Du skal ændre stien til PDF-læseren, som den er på din computer, mappen Program Files kan være på engelsk (Programmer) eller have en vis indikation på forsiden, f.eks. (X64).
Brug en trigger til at lade koden vide, hvornår funktionerne skal udføres. Brug den ønskede trigger, en formular, en knap, en check eller andre formularer. Brug for eksempel knappen "Klik " på en knap. Når knappen trykkes, åbnes og udskrives PDF-dokumentet. Koden ser sådan ud:

Sub CommandButton_Click () 'Aktivér funktionen åben før, så PDF'en åbnes, før den udskrives OpenPDF Call Så aktiver PrintPDF Call End Sub

Kopier den midterste del af koden ovenfor (mellem Sub og End Sub) i formularelementet og i den trigger, der vil blive brugt.

tips

Hvis du bruger 2007-versionen af Microsoft Office og ikke ser fanen "Udvikler", klikker du på Office-knappen, klikker på "Indstillinger", klik på "Tilpas" og vælg "Vis udvikler-fanen på båndet" og klik på "OK ".