Jak používat VBD k otevření a tisku PDF souboru

Obsah

Pokyny
Jak
Co potřebujete

Visual Basic for Applications (VBA) je programovací jazyk používaný aplikací Microsoft Office pro aplikace pro provádění dynamických úloh, jako je otevírání a tisk souborů PDF. K tomu budete potřebovat základní znalosti jazyka a editoru VBA, který je nainstalován ve všech verzích aplikací sady Microsoft Office. Tento kód lze použít pro všechny aplikace.

Pokyny

Zobrazit profil (ANSI obrázek DBX60 od Fotolia.com)

Otevřete editor VBA v aplikaci Office, do které zadáte kód. Přejděte na "Soubor", potom "Nástroje", pak "makra" a nakonec "Editor jazyka" ve verzi sady Microsoft Office 2003 nebo starší. Pro vydání 2007 přejděte na kartu Vývojář a klepněte na položku Visual Basic.
V okně kódu klepněte na místo, kam chcete kód zadat.
Přidejte kód a otevřete soubor PDF. Váš kód by měl vypadat takto

Sub OpenPDF () Dim strPDFFileName Jako String 'Edit přidáním plného názvu souboru, který chcete otevřít namísto "strPDFFileName" = "C: examplefile.pdf" Následující příkaz kontroluje, zda je soubor již otevřen: Pokud Není FileLocked (strPDFFileName) a potom 'Pokud je výsledek False, pokračujte v otevírání souboru Documents.Open strPDFFileName) End If End Sub

zkopírujte a vložte tento kód do okna kódu. Jediná část, kterou potřebujete změnit, je úplná cesta k souboru PDF, který chcete otevřít. Nahraďte "C: examplefile.pdf" cestou vašeho souboru.
Kód pro tisk souboru je

Sub PrintPDF (strPDFFileName jako řetězec) Dim sAdobeReader as String 'Toto je úplná cesta k aplikaci Adobe Reader nebo Acrobat v počítači sAdobeReader = C: Programové soubory Adobe Acrobat 6.0 Reader AcroRd32.exe RetVal = Shell (sAdobeReader & "/ P" & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub

Cestu čtečky PDF je třeba změnit tak, jak je v počítači, složka Program Files může být v angličtině (Program Files) nebo mít na přední straně nějaké informace, například (x64).
Použijte spoušť, aby kód věděl, kdy provádět funkce. Použijte požadovaný spouštěč, formulář, tlačítko, šek nebo jiné položky formuláře. Použijte například příkaz "Click" tlačítka. Po klepnutí na tlačítko se dokument PDF otevře a vytiskne. Kód vypadá takto:

Sub CommandButton_Click () 'Povolit funkci otevřít před, aby se soubor PDF otevřel před tiskem volání OpenPDF Potom povolit Sub Sub Sub PrintPDF

Zkopírujte střední část kódu výše (mezi Sub a End Sub) do položky formuláře a do spouštěče, který bude použit.

Jak

Pokud používáte verzi sady Microsoft Office 2007 a nevidíte kartu "Vývojář", klepněte na tlačítko Office, klepněte na tlačítko "Možnosti", klepněte na tlačítko "Vlastní" a vyberte kartu "Zobrazit kartu vývojáře na pásu karet" a klepněte na tlačítko OK.