afdrukbereik bepalen via macro

[cgulickx]

Ik heb een excel bestand gemaakt waarin collega's gegevens wegschrijven. Het
bestaat uit 20 kolommen. Verder is het werkblad beveiligd zodat ze enkel de
vrije cellen kunnen invullen.
Nu is het zo dat als er afgedrukt moet worden, maar liefst x-aantal pagina's
(blanco) worden afgedrukt omdat ongeveer 1000 rijen voorzien zijn om ingevuld
te worden. Bovendien zijn de kolommen zo in aantal dat het niet op 1 blad kan
(via landscape).
Kan ik via een macro bepalen met bvb. invoer door de gebruiker dat slechts
de door hem gekozen kolommen worden afgedrukt ?

Alvast bedankt voor de hulp of reacties.

[RaceEend]

cgulickx wrote:

Met pagesetup.PrintArea kan je het afdrukbereik bepalen.

Voorbeeld
ActiveSheet.PageSetup.PrintArea = "B3:C100"

--

[cgulickx]

Bedankt, maar kan ik het bepalen met een bereik dat enkel reikt tot de
ingevulde rijen ?

[RaceEend]

cgulickx wrote:

> Bedankt, maar kan ik het bepalen met een bereik dat enkel reikt tot
> de ingevulde rijen ?
>

> > Voorbeeld
> > ActiveSheet.PageSetup.PrintArea = "B3:C100"
> >
> > --
> >
> >

Range("D10").CurrentRegion.Address

Geeft het bereik van de aaneengesloten cellen rondom de cel D10.
Dit is gelijk aan CTRL+SHIFT+8

UsedRange geeft het gehele bereik dat wordt gebruikt.
Stel je hebt cel B2 en daarnaast F100:K1000 gevuld (gebruikt) dan geeft
UsedRange.Address het bereik B2:K1000
Range("F100").CUrrentregion.Address geeft het bereik F100:K1000

--

[cgulickx]

Hoe moet ik dergelijke regels gebruiken met een afdrukvoorbeeld opdracht ?

[RaceEend]

cgulickx wrote:

> Hoe moet ik dergelijke regels gebruiken met een afdrukvoorbeeld
> opdracht ?

In VBA subroutine

Voorbeeld:

Sub AanpassenAfdrukInstelling()
ActiveSheet.PageSetup.PrintArea = _
Range("D10").CurrentRegion.Address
End Sub

Kopieer deze code naar een normale VBA module, via ALT-F11 kan deze
gebruikt worden.