Stihenvisning i sidefod men kun på sidste side

et bud....
Den fremkommer lige i starten med et print preview som man skal lukke (ikke printe) for at danne sideskift. Pil linien ud hvis siderne er opsat på forhånd.

Sub test()
Dim lNoOfPages As Long
'denne linie kan udelades hvis siden er printet før. Ellers er det den der danner sideskift
ActiveSheet.PrintOut preview:=True

lNoOfPages = (Sheet1.HPageBreaks.Count + 1) * (Sheet1.VPageBreaks.Count + 1)
If lNoOfPages > 1 Then
    ActiveSheet.PrintOut from:=1, to:=lNoOfPages - 1
    ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
    ActiveSheet.PrintOut from:=lNoOfPages, to:=lNoOfPages
Else
    ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
    ActiveSheet.PrintOut
End If
End Sub