področje tiskanja

Pomoč pri izdelavi makrov
Odgovori
jure121
Prispevkov: 19
Pridružen: Sr Nov 26, 2008 4:29 pm

področje tiskanja

Odgovor Napisal/-a jure121 »

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č
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Koda: Izberi vse

Dim obmocje 
obmocje = "$A$1:$Z63,$AB$1:$AR63" 

ActiveSheet.PageSetup.PrintArea = obmocje 
ali

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]
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: področje tiskanja

Odgovor Napisal/-a admin »

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)
Če znate določiti zadnjo vrstico, potem predpostaviva, da je zapisana v spremenljivki ZadnjaVrstica. V tem primeru je torej koda takšna:

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
jure121
Prispevkov: 19
Pridružen: Sr Nov 26, 2008 4:29 pm

Odgovor Napisal/-a jure121 »

Deluje!
pozabljal sem na vejico pred navedbo drugega območja (... ZadnjaVrstica & ",$AB$1: ...)
Hvala obema
Odgovori