marges in koptekst

[bta]

Ik heb de paginaindeling met marges links en rechts van 0,5. Hoe krijg ik de koptekst ook op diezelfde marge, mag met VBA?
Gr. BTA

 

[Jack Nouws]

Ik heb de paginaindeling met marges links en rechts van 0,5. Hoe krijg ik de koptekst ook op diezelfde marge, mag met VBA?
Gr. BTA

Hallo BTA,

Ik heb met een macro een stukje opgenomen, wellicht dat je het kunt gebruiken.

Sub Macro2()
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
       [COLOR="blue"] .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)[/COLOR]
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
       [COLOR="blue"] .ScaleWithDocHeaderFooter = True[/COLOR]
        .AlignMarginsHeaderFooter = False
    End With
End Sub

Met vr gr
Jack

 

[bta]

Dankjewel voor de moeite, maar de marges voor de kop- en voettekst krijg ik niet gelijk met de marges van de hele pagina; er zit altijd een verschil in en ik wil dat de uiteindelijke linker en rechter kop- en voettekst gelijk lopen met de paginamarges.