MS Excel

Téma: Nastavení tiskového pole dle bunky

Zaslal/a agnusxx 22.10.2013 18:01

Dobrý den,
chtěl bych asi pomocí makra (bez něj to asi nepujde) zde v sešitu: www.propetra.tym.cz/www/sesitexcell.xls Udělat aby se pomocí stisku tlačítka automaticky nastavilo tiskové pole na hodnotu v bunce "N5" A poté stačilo dát tisk a automaticky se začnou tisknout stránky až do uvedeného řádku v bunce N5 věděl by někdo ?

Předem děkuji za snahu.

Zaslat odpověď >

Pavlus(22.10.2013 18:29)#015829

Tiskové "pole" se nastavuje s pomocí PrintArea, kde pak stačí využít proměnnou s hodnotou daného řádku.

Jenom ještě poznámka, to číslo řádku máš s desetinnou částí. Nastavil jsi tam sice formát, ale Excel dále počítá i s částí za čárkou. Proto jsem v řešení ještě využil funkci Round.
P.

Př.:Sub Nastaveni_oblasti_tisku()
Dim radek As Double

radek = Round(ActiveSheet.Range("N5").Value, 0)
ActiveSheet.PageSetup.PrintArea = Range("A1:B" & radek).Address

End Subcitovat

agnusxx(22.10.2013 20:19)#015840

Skvělé!! Ohromné díky, funguje přesně tak jak jsem potřebovalcitovat

Uživatelské menu

Nejste přihlášen(a)

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.