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
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
RSS nejnovější články