Pozdravljeni!
Imam nekaj težav pri nastavljanju področja tiskanja v VBA in bi vas prosil za pomoč.
Področje tiskanja (več ločenih območij) znam določiti za znano število podatkov. Npr.:
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z63,$AB$1:$AR63"
Kako pa narediti, če je število podatkov v stolpcu spremenljivka. V tem primeru namreč vedno obstaja nevarnost, da bi podatki prišli izven območja tiskanja. (Zadnjo vrstico, kjer so napisani podatki znam določiti)
Hvala za pomoč
področje tiskanja
Koda: Izberi vse
Dim obmocje
obmocje = "$A$1:$Z63,$AB$1:$AR63"
ActiveSheet.PageSetup.PrintArea = obmocje
Koda: Izberi vse
Dim obmocje
obmocje = "$AB$1:$AR63"
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z63," & obmocje
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Re: področje tiskanja
Če znate določiti zadnjo vrstico, potem predpostaviva, da je zapisana v spremenljivki ZadnjaVrstica. V tem primeru je torej koda takšna:jure121 napisal/-a: Kako pa narediti, če je število podatkov v stolpcu spremenljivka. V tem primeru namreč vedno obstaja nevarnost, da bi podatki prišli izven območja tiskanja. (Zadnjo vrstico, kjer so napisani podatki znam določiti)
Koda: Izberi vse
ZadnjaVrstica = Range("A65536").End(xlUp).Row + 1
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z" & ZadnjaVrstica & ",$AB$1:$AR" & ZadnjaVrstica
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator