Pokud je tisk vyvolán makrem, stačí do makra na konec dopsat například
Cells(1, 1) = Cells(1, 1) + 1
v tom případě v buňce A1 bude počet tisků.citovat
Cells(1, 1) = Cells(1, 1) + 1
v tom případě v buňce A1 bude počet tisků.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: tisk
MS Excel
Téma: tisk 
Zaslal/a jaks.dalibor 27.8.2013 19:09
zdravím všechny, potřebuju poradit. Jde nějakou funkcí nebo čím udělat, aby se mi do konkrétní buňky vepsalo, kolikrát jsem daný list vytiskl? Dalibor
ok, díky, to funguje. Na každým listě mám tlačítko, které spouští makro pro tisk. Teď jen musím vymyslet, jak to ke každému tlačítku dopsat (těch tlačítek - listů je 140). Pak mám ještě na prvním listě centrální tlačítko se seznamem všech listů, pro tisk všech listů, tak ještě vymyslet, jestli by se to mohlo na každý list napsat. Když nevymyslím, tak i tak díky.citovat
Stačí mít jedno makro Sub CountPrint()
ActiveSheet.Cells(1, 1) = ActiveSheet.Cells(1, 1) + 1
End Sub
A jen ho pak přiřazovat tlačítkům.
A to tlačítko pro tisk všech listů rozkopírovat na jednotlivé listy, ale záleží jak je napsané a kde makro umístěné.citovat
ActiveSheet.Cells(1, 1) = ActiveSheet.Cells(1, 1) + 1
End Sub
A jen ho pak přiřazovat tlačítkům.
A to tlačítko pro tisk všech listů rozkopírovat na jednotlivé listy, ale záleží jak je napsané a kde makro umístěné.citovat
Proboha, 140 tlačítek !?!?
Proč si neuděláte jedno makro spouštěné klávesovou zkratkou a na aktivním listě se vám potom přičte 1, pokud ho spustíte na listu se seznamem, tak na všech
Použijte pro to událost
Workbook_BeforePrintcitovat
Proč si neuděláte jedno makro spouštěné klávesovou zkratkou a na aktivním listě se vám potom přičte 1, pokud ho spustíte na listu se seznamem, tak na všech
Použijte pro to událost
Workbook_BeforePrintcitovat
jo jo, zní to divně, ale musel jsem experimentovat. Těch listů je 140, protože jsou to pracovní lístky zaměstnanců. Na každým listě je tlačítko tisk (to aby to lamy zbytečně nehledali v menu a bylo to rychlejší) a na prvním listě je sumář všech listů s tlačítkem tisk, které vytiskne všechny listy. Nemůžu to teď tady najít, ale měl jsem problém, že když jsem použil klasicky makro pro tisk celého sešitu, tak se mi na jednotlivých listech zpřeházeli všechny tlačítka (záhada nevím proč), ale jenom, pokud ten soubor někdo otevřel v excelu 2010. Takže teď tím tlačítkem na prvním listě musím simulovat stlačení tlačítek na všech listech a pak to problém nedělá. Tak pokud chci statistiku tisku jednotlivých prac. lístků, tak to musím přiřadit ke každému listu zvlášť. Uf, doufám, že je to pochopitelné 
citovat
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články