Sidefod

stem gerne på relevante forslag her

https://excel.uservoice.com/forums/304921-excel-for-windows-desktop-application?query=footer

du skal vel også have årstal med? ellers sidder bestyrelsen med regnskaber for marts i 10 versioner (hvis der er 10 i bestyrelsen)...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = Sheets(1).Range("A1").Value
    End With
    Application.ScreenUpdating = True
End Sub

Mange tak for hjælpen.
Jeg har været inde og stemme

hej jeg hopper lige med på den her.
hvor sætter font size ind i den med &8 hvordan skal linje så laves
.RightFooter = Sheets(1).Range("A1").Value

jeg har fået det løst

Hej
jeg har løst det på denne måde:

' Get info for Right footer
    Set wbTemplate = ActiveWorkbook
    Set wsTemplate = wbTemplate.Sheets("Dine_Data")
    Set rRightFooter = wsTemplate.Range("F6")
   
    Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        '.LeftHeader = ""
        '.CenterHeader = ""
        '.RightHeader = ""
        .LeftFooter = "&8Side &P af &N"
        .CenterFooter = "&8Udskrevet d. &D - kl. &T"
        .RightFooter = "&""Calibri,Kursiv""&08" & rRightFooter.Value
    End With