Programmering
Visual Basic for Applications (VBA) är programmeringsspråket som används med Microsoft Office för att få applikationerna att utföra dynamiska uppgifter, varav en är att öppna och skriva ut PDF-filer. För att utföra denna uppgift behöver du en grundläggande förståelse för VBA-språket och VBA-redigeraren som medföljer alla versioner av Microsoft Office-programmen. Denna kod kan användas för alla Microsoft Office-applikationer.
Steg 1
Öppna VBA-editorn i Microsoft Office-applikationen som du vill att koden ska matas in i. Klicka på "Arkiv" > "Verktyg" > "Makron" > "Visual Basic Editor" i en applikation av Microsoft Office 2003 eller tidigare. Klicka på fliken "Utvecklare" > "Visual Basic" i 2007 års utgåva av Microsoft Office.
Dagens video
Steg 2
Klicka var som helst i kodfönstret där du vill infoga koden.
Steg 3
Lägg till koden för att öppna PDF-filen. Din kod bör se ut ungefär så här:
Sub OpenPDF() Dim strPDFFileName As String 'Redigera för att lägga till hela filnamnet till PDF-filen som du vill öppna strPDFFileName = "C:\examplefile.pdf" 'Detta nästa funktionen kontrollerar om filen inte redan är öppen. Om inte fillåst (strPDFFileName) Sedan 'Om den returnerar False, fortsätt öppna PDF-filen Dokument. Öppna strPDFFileName) End If End Sub
Kopiera och klistra in den här koden i ditt kodfönster. Den enda delen av koden som du behöver ändra är den fullständiga sökvägen till PDF-filen du vill öppna. Så ersätt "C:\examplefile.pdf" med din egen sökväg och namn.
Steg 4
Lägg till koden för att skriva ut PDF-filen. Utskriftskoden är:
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Detta är den fullständiga sökvägen till Adobe Reader- eller Acrobat-applikationen på din dator sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Avsluta Sub
Den enda delen av denna kod som behöver ändras är den fullständiga sökvägen till Adobe Reader, Acrobat eller någon PDF-läsare på din dator.
Steg 5
Använd en trigger för att anropa funktionerna. Detta är hur koden kommer att veta när den ska köras. Använd vilken trigger du vill; ett formulär, knapp, kryssruta eller annat formulärobjekt. Använd till exempel "Klick"-deklarationen för en knapp. När du klickar på knappen öppnas PDF-dokumentet och skrivs sedan ut. Koden ser ut så här:
Sub CommandButton_Click() 'Anropa öppningsfunktionen först så att PDF: en kan öppnas innan den skrivs ut Anropa OpenPDF 'Anropa nu utskriftsfunktionen så att PDF: en kan skrivas ut Anropa PrintPDF End Sub
Kopiera bara den mellersta delen av ovanstående kod (mellan Sub och End Sub) till formulärobjektet och utlösaren du bestämmer dig för att använda.
Saker du behöver
En Microsoft Office-applikation
applikation för PDF-läsare
Dricks
Om du använder 2007-versionen och inte ser fliken "Utvecklare", klicka på knappen "Office" och sedan på knappen "Alternativ" längst ned i menyn. Klicka på "Visa utvecklarfliken på menyfliksområdet" och klicka på "OK".
