Programování
Visual Basic for Applications (VBA) je programovací jazyk používaný s Microsoft Office, aby aplikace prováděly dynamické úkoly, z nichž jednou je otevírání a tisk souborů PDF. K provedení tohoto úkolu potřebujete základní znalosti jazyka VBA a editoru VBA, který je dodáván s každou verzí programů Microsoft Office. Tento kód lze použít pro kteroukoli z aplikací Microsoft Office.
Krok 1
Otevřete editor VBA v aplikaci Microsoft Office, do které chcete zadat kód. Klikněte na "Soubor" > "Nástroje" > "Makra" > "Editor jazyka Visual Basic" v aplikaci Microsoft Office 2003 nebo starší. Klikněte na „kartu Vývojář“ > „Visual Basic“ ve verzi Microsoft Office 2007.
Video dne
Krok 2
Klikněte kamkoli v okně kódu, kam chcete kód vložit.
Krok 3
Chcete-li otevřít soubor PDF, přidejte kód. Váš kód by měl vypadat nějak takto:
Sub OpenPDF() Dim strPDFFileName As String 'Upravit pro přidání celého souboru do souboru PDF, který chcete otevřít strPDFFileName = "C:\examplefile.pdf" 'Další Funkce zkontroluje, zda soubor již není otevřen If Not FileLocked (strPDFFileName) Potom 'Pokud vrátí False, pak pokračujte v otevírání souboru PDF Documents. Otevřít strPDFFileName) End If End Sub
Zkopírujte a vložte tento kód do okna kódu. Jediná část kódu, kterou budete muset změnit, je úplná cesta k souboru PDF, který chcete otevřít. Nahraďte tedy „C:\examplefile.pdf“ svou vlastní cestou a názvem souboru.
Krok 4
Přidejte kód pro tisk souboru PDF. Tiskový kód je:
Sub PrintPDF (strPDFFileName jako řetězec) Dim sAdobeReader as String 'Toto je úplná cesta k aplikaci Adobe Reader nebo Acrobat ve vašem počítači sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub
Jedinou částí tohoto kódu, kterou je třeba změnit, je úplná cesta k aplikaci Adobe Reader, Acrobat nebo jakékoli čtečce PDF ve vašem počítači.
Krok 5
K volání funkcí použijte spoušť. Takto bude kód vědět, kdy se má spustit. Použijte jakýkoli spoušť, který chcete; formulář, tlačítko, zaškrtávací políčko nebo jinou položku formuláře. Použijte například deklaraci tlačítka „Kliknout“. Po kliknutí na tlačítko se dokument PDF otevře a vytiskne. Kód vypadá takto:
Sub CommandButton_Click() 'Nejprve zavolejte funkci otevření, aby se PDF mohl otevřít před tiskem Call OpenPDF 'Nyní zavolejte funkci tisku, aby bylo možné vytisknout PDF Call PrintPDF End Sub
Stačí zkopírovat střední část výše uvedeného kódu (mezi Sub a End Sub) do položky formuláře a spustit, který se rozhodnete použít.
Věci, které budete potřebovat
Aplikace Microsoft Office
Aplikace pro čtení PDF
Spropitné
Pokud používáte verzi 2007 a nevidíte kartu „Vývojář“, klikněte na tlačítko „Kancelář“ a poté na tlačítko „Možnosti“ ve spodní části nabídky. Klikněte na „Zobrazit kartu Vývojář na pásu karet“ a klikněte na „OK“.
