PC-HELP.CZ

Zdravim všechny, potřeboval bych poradit s jednim oříškem. Vytvářim v excelu malý formulář tak, že se mi vejde 6x na stránku. Na každém z nich potřebuju udělat pořadové číslo ale tak, že se mi při každém tisku periodicky zvětší. Nevím jestli něco takového jde vůbec vytvořit. Můžete mi prosím někdo poradit?

Pokud budes tisknout "rucne" - Ctrl-P, pak zbyva pouze vkladat cislovani do formulare (mimochodem neuvadis, v jakem prvku je to cislo vlozeno - textove pole, popisek,..).
Pro automatickou inkrementaci je potreba pouzit proceduru VBA, ktera nacte posledni cislo, inkrementuje a posle na tiskarnu (priadne obracene - vytiskne a pak pro dalsi tisk inkrementuje).
Protoze, jak pisi vyse, neuvedls nic blizsiho, je odpoved takto obecna.
Bylo bu dobre, kdybys pripojil testovaci soubor s formularem.

Přesně tak. Aby jsme tu nevymýšleli zbytečnosti, nějaký příklad je nezbytný.

OK, v příloze je malý příklad. Bohužel mi nejde přiložit xls.soubor, tak to přikládám jako obrázek. Číslování formulářů je pouze jako číslo v buňce, ale to není podmínkou, lze to upravit tak, jak bude potřeba. Jde o to, že těchto formulářů se bude tisknout více uživateli poměrně velké množství, proto bych byl rád, aby se čísla měnila automaticky. Na příkladu je uvedeno číslování 1,2,3,4 a já by potřeboval takovou úpravu že, když to teď vytisknu, tak se mi změní číslování na 5,6,7,8.

V příloze je příklad. Makro bylo vytvořeno za pomoci záznanu maker.
Pokud se makru přidělí klávesová zkratka Ctrl+P překryje zkratku pro normální tisk a spustí se tisk přes makro.

Postup vytvoření makra:

1. Spust záznam makra
2. Kopie (Ctrl+C) poslední buňky v pořadí tedy buňky s nejvyšším číslem
3. Přesun na buňku s nejnižším číslem
4. Funkce vložit jinak - vložit pouze hodnoty
5. Příkaz pro spuštění tisku
6. Ukonči záznam makra

Edit: soráč nevím proč ještě sem to zkusil jednou spustit a bohužel tam něco chybí zřejmě přepočet listu před tiskem F9 bo jako spuštené makrem mi to nefunguje

V prilozenem sesitu je upravena procedura, slouzi pro demo. Podle potreby si proceduru uprav (nazev kistu, adresy bunek, aktivuj radek PrintOut) a nakopiruj do sveho sesitu do modulu VBA.

Doplneno:
pokud budes chtit tisknout opakovane, pak pouzij: