Tweet

Tisk (print) na tiskárnu - Excel VBA

Úvodem

Jak pomoci VBA vytisknout fakturu (nebo jiné informace na listě). Prozradí následující článek.

Trochu teorie

Trochu teorie, aneb co vše lze v PrintOut nastavovat.

Syntaxe metody:
PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

Proměnná	Popis
From	Číslo stránky od které začína tisk
To	Číslo poslední stránky, která se bude tisknout
Copies	Počet kopií
Preview	Náhled (Ukázka) před tiskem TRUE , FALSE
ActivePrinter	Název tiskárny, která bude tisknout
PrintToFile	Tisk do souboru – pokud je TRUE
Collate	True pro kompletování
PrToFileName	Pokud tiskneme do souboru nastavíme jméno souboru

Praktické VBA ukázky kód

Nejednodužší kód. Prostě vytiskneme vše.

ActiveSheet.PrintOut

Praktické VBA ukázky - kód

Jen trpochu složitější. Budeme tisknout od stránky 3 do stránky 10, na tiskárně HP DeskJet (záleží jak mate nastavené tiskárny ve vašem PC), a budete požadovat kompletaci, jelikož máme tři kopie (tj. vytisken se stránky 3,4,5 ..10 a pak zase 3-10 a do třetice také. Bez kompletace se vytiskne 3x stránka 3, 3x stránka 4, atd.

ActiveSheet.PrintOut From:=3, To:=10, Copise:=3, ActivePrinter:="HP DeskJet 930 na LPT1:", Collate:= True

Poznámka: Stránky musí obsahovat text na vytištění.

Omezení oblasti tisku

Určete co vše bude vytisknuto. Většinou se nemusí tisknout úplně všechno. Navíc ušetříte náklady na tisk. Toto zmíním podrobněji v článku a parametrech pro tisk.

ActiveSheet.PageSetup.PrintArea = "$C$4:$K$16"

Náhled před tiskem

Pro náhled před tiskem poslouží VBA kód

Worksheets("List1").PrintPreview

Nastavení parametru tisku pomocí VBA

Nastavení parametru tisku proberu v některém z dalších článku.

PageSetup

Možností je mnoho:

• BlackAndWhite
• BottomMargin Property
• CenterFooter
• CenterFooterPicture
• FirstPageNumber
• FitToPagesWide
• FitToPagesTall
• FooterMargin
• HeaderMargin
• LeftHeaderPicture
• LeftFooterPicture
• LeftMargin
• OddAndEvenPagesHeaderFooter
• Orientation
• Order
• PrintArea
• PrintQuality
• PrintTitleColumns
• PrintTitleRows
• RightFooterPicture
• RightMargin
• TopMargin
• Zoom

Závěrem

V kódech nejsou deklarace proměných, jelikož slouží jako ukázkový příklad.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře