Excel VBA koptekst ahv range bijv. A1:I4

Status
Niet open voor verdere reacties.
H

henkvanerp

Gebruiker
Lid geworden
13 jun 2007
Berichten
21
Hallo, ik zoek een VBA script voor Excel dat een koptekst maakt met cellenbereik A1:I4 (Daarin staan titels die bij elke pagina hetzelfde zijn).
Mijn dank.
 
En je voorbeeld document?
 
En waar moet dan die koptekst komen te staan?
En op welk moment moet dan dat VBA script worden geactiveerd?
 
Laatst bewerkt:
Ik dacht duidelijk te zijn. Boven elke uitgeprinte lijst met de aangegeven data. Dus bovenin als koptekst.

Bijv. Lijst met 200 namen in 1 blad wordt uitgeprint op 4 A4tjes (50 namen ed per A4) Bovenaan elke pagina de koptekst A2:E2 volgens de bijlage.
Dus op moment van printen.
 
Laatst bewerkt:
Er zijn meer mogelijkheden voor kopteksten.
Je zegt nu pas dat dat bij het printen moet worden gedaan.

Code: 
ActiveSheet.PageSetup.CenterHeader = WorksheetFunction.Concat(Range("A1:E2").Value)
ActiveSheet.PrintPreview
 
Dank. De waarden in de cellen (a1:I8) in de koptekst veranderen telkens bij het samenstellen van de lijst.
En het zou handig zijn als de randen van de koptekst zoals in het werkblad ook zichtbaar blijven.
Dat is nu niet het geval.
 
Het is eenvoudiger dan ik dacht. Wil je kopteksten van een Excel blad op elke pagina afdrukken van bijv. de 2 bovenste rijen dan stel je dit als volgt in:
Klik op tabblad "Pagina-indeling". Kies "Afdruktitels".
Om bijv. rij 1 en 2 af te drukken boven elke te printen pagina dan als volgt instellen:
Bekijk bijlage 368900
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan