Jste zde: Úvodní stránka » excel » vba-triky » excel-vba-tisk-print

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: 03.12.2011 17:26

---

---

Další články k tématu

• Ukončení aplikace Excel pomocí VBA
• Graf do formuláře
• Nastavení obrazovky excelu
• Hledej pozadavanou hodnotu
• Export do csv - oddělovač středník
• Jak zjisti verzi Excelu
• Tisk (print) na tiskárnu - právě čtete

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.

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