< návrat zpět

MS Excel

Téma: Tisk sešitu s proměnou řádků rss

Zaslal/a Merlin99 30.1.2016 13:14

Merlin99Zdravím, mám dotaz mám sesit dat a v nem se mi mneni pocty radku a potreboval bych vytvorit tlacitko ktery vzdy vytiskne jen tolik kolik je tam veci a nic navic... vedel by nekdo viz priloha..Děkuji

Příloha: rar29700_sesit1.rar (12kB, staženo 22x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3   další »
Merlin99(30.1.2016 20:28)#029717
Merlin99
Super hledáto dobre ale nyni to zakomponovat do tlacitka na tisk z hoto nejsem...citovat
marjankaj(30.1.2016 20:34)#029718
avatar
@vovka.
Už to neriešim, mal som podobný nápad.

Možno miesto
For i = II To 1 Step -1
For j = JJ To 1 Step -1

by som dal
For i = II To LBound(Pole, 1) Step -1
For j = JJ To LBound(Pole, 2) Step -1
citovat
vovka.h(30.1.2016 20:54)#029719
avatar
Já ne 2 ! Pole, naplněné z Range, má vždycky obě LBound = 1citovat
marjankaj(30.1.2016 21:14)#029720
avatar

vovka.h napsal/a:

Já ne ! Pole, naplněné z Range, má vždycky obě LBound = 1

Jasné. Pole áno.
Ale UsedRange nemusí začínať v bunke A1. Ale to si snáď dorieši zadávateľ sám.citovat
vovka.h(30.1.2016 21:15)#029721
avatar

Merlin99 napsal/a:

Super hledáto dobre ale nyni to zakomponovat do tlacitka na tisk z hoto nejsem...

Oblast, ve které mohou být nějaká viditelná data, je dána levým horním rohem UserRange a mými zjištěnými souřadnicemi. Nikde jinde na listu žádná viditelná data nemohou být. Levý horní roh viditelných dat by šlo posunout podobně jako pravý dolní roh.citovat
vovka.h(30.1.2016 21:19)#029722
avatar
Vždyť ano. Oprava na začátek UsedRange v mém kódu je!citovat
vovka.h(31.1.2016 7:48)#029723
avatar
Poslední dotaz na stanovení tiskové oblasti zůstal nakonec nezodpovězený. V 99% případů pro tisk viditelných dat nebude problémem vymezení sloupců pro tisk, ale pouze uříznutí "dolních" řádků se vzorci, které nic nezobrazují.
Pokud vím, že tisk má začít v buňce Cells(Rz, Sz) a má končit sloupcem Sk, stačí z mého kódu použít závěrečnou hodnotu proměnné i (číslo řádku s poslední buňkou s viditelnými daty). Hledanou tiskovou oblast v daném případě definuje
Range(Cells(Rz, Sz), Cells(i, Sk))citovat
Merlin99(31.1.2016 9:07)#029725
Merlin99
Děkuji moc věřím ze jste nato prisli ale prome je to trosicku hard. Byl bych vdecny kdyby to cely dal nekdo dohromady..citovat
vovka.h(31.1.2016 9:33)#029726
avatar
To kuřátko už asi o moc víc předežvýkat nejde. V případě potřeby čtěte pomaleji a víckrát. Přesto mne napadlo dodat výsledek v úplné podobě s vyznačením tiskové oblastí mezi první a poslední buňkou na listu, v nichž je zobrazený nějaký viditelný obsah. Oboustranné zúžení UsedRange už vede na větší proceduru, takže přikládám sešit i s ukázkou.
Doporučuji k povšimnutí, že výkonné tlačítko je umístěno mimo UsedRange. To bourá zavedený mýtus, že mimo UsedRange na listu nemůže ležet nic. Objekty, umístěné na listu, samy o sobě jeho UsedRange nemění!!!
Příloha: zip29726_minimalprintarea.zip (18kB, staženo 17x)
citovat
Merlin99(31.1.2016 9:42)#029728
Merlin99
Děkuji moc a bylo by tedy mozny propojit vysledek do tlacitka co vytiskne jen tu viditelnou oblast? viz vase priloha
Příloha: rar29728_minimalprintarea.rar (24kB, staženo 16x)
citovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje