Een gefilterde regio printen d.m.v. een macro

Status
Niet open voor verdere reacties.

ThomasBakker

Nieuwe gebruiker
Lid geworden
21 jul 2017
Berichten
3
Goedenavond,

Ik heb een issue en ik kom er niet uit.
Ik heb een database met 700 rijen.
Ik ga een zo goed mogelijk en uitgebreid beeld proberen te scheppen.

Ik heb meerdere macro's om kolom 1 van A tot J te filteren.
Ik heb meerdere rijen (1-4) die ik vast wil zetten bovenaan ieder blad wat ik print.

Ik wil dat, zodra ik op 1 knop klik, het macro wordt toegepast van het filter.
Vervolgens wil ik dat bij diezelfde klik het printarea wordt geselecteerd op basis van de actieve area.
Ik wil daarbij bepaalde kolommen uitsluiten.
Dan moeten de rijen 1 tot en met 4 bovenaan de pagina komen te staan.
Vervolgens moet het document worden getoond in een afdrukvoorbeeld.

Ik ben heel erg nieuw met scripten van VBA in excel en tot nu toe lukt het zeer goed.
Dit is gewoon een issue waar ik niets van snap.

Dit is wat ik zelf ongeveer dacht.
Corrigeer me alsjeblieft als het helemaal nergens op lijkt..

Hij filtert eerst de regio die ik hebben moet (als het goed is)
Dan stelt hij de printarea in op de huidige regio
Vervolgens print hij de huidige sheet

Alvast bedankt!

--

Private Sub Print_GroepA_Click()

ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Range("$A$4:$AB$700").AutoFilter Field:=1, Criteria1:="A"
ActiveWindow.ScrollRow = 1

ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address

ActiveSheet.PrintOut

End Sub
 
Ik heb meerdere macro's om kolom 1 van A tot J te filteren.

Hier ben ik je al kwijt. Plaats het bestand even en ja ontdaan van gevoelige info.
 
Volgens mij heb ik (nog) geen input gegeven... En als je iets werkend gekregen hebt dan is het ook prettig dat je de oplossing ook even plaatst.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan