Skriftstørrelsen, billede, side nr., dato og klokkeslet i VB

Prøv med

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        .LeftHeader = "&7&A"
        .CenterHeader = ""
        .RightHeaderPicture.Filename = _
        "H:\brm.jpg"
        .RightHeader = "&G"
        .LeftFooter = ""
        .CenterFooter = "&7&D &T"
        .RightFooter = "&7Side &P af &N"
    End With
    Application.ScreenUpdating = True
End Sub

Tallene (her 7) er skriftstørrelsen i punkter.

Og så skal stigen til billede selvfølgelig rettes til det rigtige.

Kunne du bruge dette?