Programmering
Visual Basic for Applications (VBA) er programmeringsspråket som brukes med Microsoft Office for å få applikasjonene til å utføre dynamiske oppgaver, hvorav en er å åpne og skrive ut PDF-filer. For å utføre denne oppgaven trenger du en grunnleggende forståelse av VBA-språket og VBA-editoren som følger med alle versjoner av Microsoft Office-programmene. Denne koden kan brukes for alle Microsoft Office-applikasjonene.
Trinn 1
Åpne VBA-editoren i Microsoft Office-applikasjonen du vil at koden skal legges inn i. Klikk på "Fil" > "Verktøy" > "Makroer" > "Visual Basic Editor" i en applikasjon av Microsoft Office 2003 eller tidligere. Klikk på "Utvikler-fanen" > "Visual Basic" i 2007-utgaven av Microsoft Office.
Dagens video
Steg 2
Klikk hvor som helst i kodevinduet der du vil sette inn koden.
Trinn 3
Legg til koden for å åpne PDF-filen. Koden din skal se omtrent slik ut:
Sub OpenPDF() Dim strPDFFileName As String 'Rediger for å legge til hele filnavnet til PDF-filen du vil åpne strPDFFileName = "C:\examplefile.pdf" 'Dette neste funksjonen sjekker for å se om filen ikke allerede er åpen Hvis ikke fillåst (strPDFFileName) Deretter 'Hvis den returnerer False, fortsett å åpne PDF-filen Dokumenter. Åpne strPDFFileName) End If End Sub
Kopier og lim inn denne koden i kodevinduet ditt. Den eneste delen av koden du trenger å endre er hele banen til PDF-filen du vil åpne. Så erstatt "C:\examplefile.pdf" med din egen filbane og navn.
Trinn 4
Legg til koden for å skrive ut PDF-filen. Utskriftskoden er:
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Dette er den fullstendige banen til Adobe Reader- eller Acrobat-applikasjonen på datamaskinen din sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub
Den eneste delen av denne koden som må endres er hele banen til Adobe Reader, Acrobat eller en hvilken som helst PDF-leser på datamaskinen din.
Trinn 5
Bruk en trigger for å kalle opp funksjonene. Dette er hvordan koden vil vite når den skal kjøres. Bruk hvilken utløser du vil; et skjema, knapp, avmerkingsboks eller annet skjemaelement. Bruk for eksempel "Klikk"-erklæringen til en knapp. Når du klikker på knappen, åpnes PDF-dokumentet og skrives ut. Koden ser slik ut:
Sub CommandButton_Click() 'Kall åpningsfunksjonen først slik at PDF-en kan åpnes før utskrift Ring OpenPDF 'Nå kaller du utskriftsfunksjonen slik at PDF-en kan skrives ut Kall PrintPDF End Sub
Bare kopier den midtre delen av koden ovenfor (mellom Sub- og End Sub) inn i skjemaelementet og utløser du bestemmer deg for å bruke.
Ting du trenger
En Microsoft Office-applikasjon
PDF-leserapplikasjon
Tips
Hvis du bruker 2007-versjonen og ikke ser "Utvikler"-fanen, klikker du på "Office"-knappen og deretter "Alternativer"-knappen nederst i menyen. Klikk på "Vis utviklerfanen på båndet" og klikk "OK".
