Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Afdrukbereik automatisch bepalen en afdrukken

1,968 views
Skip to first unread message

J-P

unread,
Dec 11, 2003, 10:27:27 AM12/11/03
to
Ik heb een werkmap met een aantal werkbladen. Als ik op
een bepaald werkblad sta wil ik mbv een macro automatisch
het afdrukbereik laten bepalen. Het aantal kolommen is
altijd gelijk maar het aantal rijen is variabel. De
laatste rij waar in kolom A is gevuld moet telkens binnen
het bereik vallen.Vervolgens moet dit bereik worden
afgedrukt.
Wie kan me helpen?

john philippen

unread,
Dec 11, 2003, 11:44:53 AM12/11/03
to
probeer het eens als volgt

selecteer a1 tot en met a4 (maak niet uit verder)
kies dan voor Bestand, afdrukbereik, bepalen.

kies nu voor Invoegen, Naam, Definieren
klik op de naam Afdrukbereik.
onderin zie je staan Verwijst naar:
plaats daar de volgende formule in
=VERSCHUIVING(Blad2!$A$1;0;0;AANTALARG(Blad2!$A:$A);KOL)

KOL moet je vervangen door het aantal kolommen.

OPGELET
deze werkt alleen maar goed als de rijen aaneengesloten zijn.

mvg

--
John Philippen
snozuf222 zonder dit@ ditweghalen hotmail.com
"J-P" <anon...@discussions.microsoft.com> schreef in bericht
news:083601c3bffb$48bf02c0$a001...@phx.gbl...

arend

unread,
Dec 11, 2003, 11:56:41 AM12/11/03
to
Lijkt mij wat voor de vba code
Cells.Select

Hiervoor moet je eerst op een willekeurige cel binnen het
afdrukgebied staan alvorens deze opdracht te gebruken.
Je kunt zien wat er gebeurt door de toetsen
Ctrl+Shift ingedrukt te houden en dan op het cijfer 8 te
drukken in het betreffende werkblad.

>-----Oorspronkelijk bericht-----

>.
>

Paul

unread,
Dec 11, 2003, 1:19:57 PM12/11/03
to
J-P ik gebruik dit

Sub Zet_Print_Area()
Dim TopLeft As String
Dim BottomRight As String
Sheets("Sheet1").Select
[A1].Select
TopLeft = ActiveCell.Address
[A65500].Select
Selection.End(xlUp).Select
'tot en met kolom E
ActiveCell.Offset(0, 5).Select
BottomRight = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = (TopLeft & ":" &
BottomRight)
End Sub
en dat werkt goed
Groeten
Paul

"arend" <anon...@discussions.microsoft.com> schreef in bericht
news:0f2b01c3c007$bfb54d60$a401...@phx.gbl...

J-P

unread,
Dec 12, 2003, 5:26:16 AM12/12/03
to
Paul,

Werkt inderdaad maar niet alle kolommen(t/m k)worden
meegenomen in het bereik.
Ik heb m aangepast maar bereik gaat maar t/m kolom F

Dim Topleft As String
Dim BottomRight As String
Sheets("Wan 75").Select
[A1].Select
Topleft = ActiveCell.Address
[A65500].Select
Selection.End(xlUp).Select
'tot en met kolom K


ActiveCell.Offset(0, 5).Select
BottomRight = ActiveCell.Address

ActiveSheet.PageSetup.PrintArea = (Topleft & ":" &
BottomRight)
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
End Sub

>.
>

Paul

unread,
Dec 13, 2003, 3:59:12 AM12/13/03
to
J-P
Print area tot en met Kolom K gebruik
ActiveCell.Offset(0, 10).Select
mvg

"J-P" <anon...@discussions.microsoft.com> schreef in bericht
news:07d001c3c09a$5ffd7ad0$a401...@phx.gbl...

J-P

unread,
Dec 15, 2003, 9:50:02 AM12/15/03
to
Paul,

Had kolom K al in gebruik,
Allen ActiveCell.Offset moest ik inderdaad nog aanpassen.
Bedankt,

J-P

>.
>

0 new messages