Přeskočit navigaci | Přeskočit na novinky
     

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

Tisk (print) na tiskárnu - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak pomocí VBA Excel tisknout?

Ú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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

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ů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |