Stránka 1 z 1

Excel - tisk karet

Napsal: 08 bře 2010 13:43
od becvar
Dobrý den,
mám v excelu 2003 evidenci materiálu. Co řádek to jeden kus materiálu a ve sloupcích mj. jméno člověka, který ho převzal.
Chtěl bych v excelu vygenerovat kartu pro toho člověka. V záhlaví pár drobností (hlavne jméno) a pod tím seznam materíalu co mu patří + předal/převzal.
Procházím google jak divej, ale zatím jsem nenarazil na nic co by mě nasměrovalo. V accessu je to jednoduché, ale pořizovat licenci jen kvuli tomuhle nechci.
Díky

Re: Excel - tisk karet

Napsal: 08 bře 2010 18:12
od navstevnik
Jsou dva mozne pristupy k reseni - na novem listu vygenerovat seznam:
- s vyuzitim rozsireneho fltru (rucne)
- pouzit proceduru VBA
Co volis?

Re: Excel - tisk karet

Napsal: 08 bře 2010 18:47
od becvar
Rozšířený filtr jsem zkoušel, je to taky možnost, ale ne moc elegantní. Prostě ruční práce :)
volim VBA

Re: Excel - tisk karet

Napsal: 08 bře 2010 21:35
od navstevnik
Tak pripoj vzorovy (testovaci) soubor se zdrojovymi daty a (treba rucne vytvorenou) predstavou vysledku.

Re: Excel - tisk karet

Napsal: 08 bře 2010 22:13
od becvar
Nacpal jsem zdroj i výsledek do jednoho listu, samozřejmě vzhledem k potřebě tisku to bude lepší zvlášť. Zdrojová data jsou značně zjednodušená a zjevně vymyšlená :).

Re: Excel - tisk karet  Vyřešeno

Napsal: 09 bře 2010 09:17
od navstevnik
V priloze je sesit resici pozadovane s ohledem na jednorazove pouziti, vice v sesitu.
Pozn.: Pokud dojde ke zmene polohy bloku bunek na zdrojovem listu, zmene v poctu sloupcu, zmene polohy sloupce s prijmenim a jmeny, zmene ve vzoru karty, je nutno v procedure upravit prislusne adresy a ofsety.

Re: Excel - tisk karet

Napsal: 09 bře 2010 16:35
od becvar
Nádhera, padla mi čelist co to vlastne je :D

Dobré dvě hodiny jsem to upravoval pro moji potřebu (více sloupců, jiné umístění, výstup naležato).
Sám bych to dohromady nedal, smekám a děkuji za pomoc.

PS: vrtá mi hlavou jak přesně funguje část kódu níže. Tu osmičku jsem tam přidal já, je to počet viditelných sloupců ve výstupu, ale co to dalsi?

Kód: Vybrat vše

    TBlk.Resize(TBlk.Rows.Count + 5, 8).Offset(-5, 0).PrintOut _
        Copies:=1, Preview:=True, Collate:=True