Auto header tekst via print area

[Abyss]

Vraagje,

Is het mogelijk om automatische bij het printen (print area selectie)
In de header tekst het zelfde te krijgen als wat ik in een bepaalde cel heb staan.

Voorbeeld:
Ik heb bv area B45:Z45 geselecteerd om af te drukken.
In Cel B45 staat “nieuw” Dit zou dan automatische in de header (rechts) moet komen te staan.


Al vast bedankt voor het meedenken:thumb:

Abyss

 

[Wigi]

Zie mijn post hier: http://www.helpmij.nl/forum/showpost.php?p=2019873&postcount=8

 

[Wigi]

En heb je al iets geprint?

 

[Wigi]

Wat staat de code?

 

[Wigi]

Het moet bij ThisWorkbook staan, stond ook in de post waaraan ik refereerde.

 

[Wigi]

Cel B45 en cel B900 komen nu in de header te staan. Waarschijnlijk zal je die variabel moeten maken, dus laten bepalen door code. Anders begrijp ik de vraag niet.

 

[Wigi]

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    ActiveSheet.PageSetup.LeftHeader = Range(ActiveSheet.PageSetup.PrintArea).Range("A1").AddressLocal(0, 0)
    
End Sub

Wigi

 

[Wigi]

Neen, print iets en zie of het goed gaat of niet.

 

[Wigi]

Komaan Abyss, heb je zelf ook wat geprobeerd? Dit is nu toch niet het einde van de wereld om dit aan te passen.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    ActiveSheet.PageSetup.LeftHeader = Range(ActiveSheet.PageSetup.PrintArea).Range("A1").[B]Value[/B]
    
End Sub

Ipv AddressLocal neem je Value...

Wigi

 

[Abyss]

Heb ik inmiddels ook gedaan, toen ik dat "AddressLocal(0, 0)"veranderde.

Maar nog bedankt voor de moeite

 

[Wigi]

En waarom zeg je dan niet het opgelost is?

 

[Abyss]

:shocked:Ja Ja,

Ga ik direct doen


Abyss