Jste zde: Úvodní stránka » excel » vba-soubory » tisk-do-pdf-excel-vba

Tisk do *.pdf - Excel VBA makro

Úvod

Někdy je potřeba z Excelu exportovat výsledky, aniž zašlete klientovi přímo excelovský soubor. Vytisknout a poslat poštou je pracné a nákladné, udělat „print screen“ obrazovky neprofesionální. Proto využijme možnost a výsledek exportujeme do *.pdf formátu. Jelikož jsme líní a nechceme to dělat ručně, využijeme v Excelu VBA makro. Příklady jsou pro Excel 2007 a Excel 2010.

„Strejda google“ našel složité postupy tisku přes Adobe Reader nebo externí pdf tiskárnu, u čehož vidím nevýhodu v nutnosti instalovat další program(y) (z nichž některé jsou placené), pak komplikovaně po tisku tyto programy uzavírat. Proto jsem se rozhodl využít k uložení do *.pdf vnitřní funkci excelu – ulož jako pdf (což novější verze Excelu umí). Kdo má starší verzi doporučuji kopit novější.

Syntaxe - teorie

Jak vypadá syntaxe ExportAsFixedFormat

ExportAsFixedFormat(Type, Filename, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)

Popis:

• Type - povinné - typ exportovaného dokumentu (xlTypePDF nebo xlTypeXPS)
• Filename - volitelné - jméno pod kterým se ukládá
• Quality - volitelné - kvalita dokumentu (xlQualityStandard nebo xlQualityMinimum).
• IncludeDocProperties - volitelné - (TRUE - FALSE)
• IgnorePrintAreas - volitelné - (TRUE - FALSE)
• From - volitelné - od které stránky
• To - volitelné - do které stránky
• OpenAfterPublish - volitelné - zobrazit po zpracování (TRUE - FALSE)
• FixedFormatExtClassPtr - volitelné

První makro Excel VBA tisk do pdf

Otestujeme si na jednoduchém příkladu, že nám vše chodí.

Sub TiskDoPdf()
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     "E:\pokusy-www\excel-VBA-tisk-do-pdf.pdf", Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
     OpenAfterPublish:=True
End Sub


Toto makro vytvoří v adresáři E:\pokusy-www\ soubor: excel-VBA-tisk-do-pdf.pdf, takže ve svém PC musíte cestu upravit podle požadavku.

Poznámka: Pokud máte Excel 2007, musíte si podporu pro tisk do *.pdf zdarma nainstalovat z webu Microsoftu.

Další nastavení

Pokud nám první makro fungovalo, můžeme zkusit nastavit:

• Tisk z více listů (vybraných)
• Zobrazit

Sub TiskDoPdf 2()
    Sheets(Array("List1", "List2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "E:\pokusy-www\excel-VBA-tisk-do-pdf.pdf", Quality:=_
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
     OpenAfterPublish:=True
End Sub

Další nastavení:

Změna kvality:

Quality:= xlQualityMinimum

Tisk celého sešitu:

ActiveWorkbook.ExportAsFixedFormat

Po uložení nezobrazit pdf dokument:

OpenAfterPublish:=False

Závěr

A jaké jsou Vaše zkušenosti? Předpokládám, že máte Excel verze 2007 a vyšší. Jsme v roce 2012. Pro starší verze doporučuji hledat na google.

Článek byl aktualizován: 15.02.2012 11:02

---

---

Další články k tématu

• Zpracovatelné formáty souborů v Excelu
• Existuje soubor - adresář (složka)
• Vypis cesty k souboru
• Vypsat adresáře - soubory
• Je soubor otevřen
• Otevřít soubor s heslem
• Otevřít soubor a předat mu nějaký parametr
• Tisk do *.pdf - právě čtete
• Smazat soubor
• Vytvořit smazat adresář
• Kopírovat a přejmenovávat soubory
• Omezení platnosti souboru - dokumentu
• Kdo přistupuje do souboru
• Velikost souboru
• Je atribut souboru pouze pro čtení - VBA Excel

Komentáře

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek