Come ripetere righe sulla stampa tranne che sull’ultima pagina

Nadia sa come formattare un foglio di lavoro in modo che le righe vengano ripetute nella parte superiore di ogni pagina della stampa. Ciò che vuole fare, tuttavia, è che le righe si ripetano nella parte superiore di ogni pagina stampata tranne l’ultima.
Non esiste un modo diretto per farlo, ma è possibile simulare tale stampa utilizzando una macro per eseguire l’attività. Tutto quello che devi fare è fare in modo che la macro stampi tutto tranne l’ultima pagina, quindi modificare l’impostazione della pagina in modo che le righe non vengano ripetute e infine stampare la pagina finale della stampa. La macro seguente fornisce un esempio di questo approccio.

Sub PrintWorksheet()
    Dim lPages As Long
    Dim sTemp As String

    lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    With ActiveSheet.PageSetup
        ActiveSheet.PrintOut From:=1, To:=lPages - 1
        sTemp = .PrintTitleRows
        .PrintTitleRows = ""
        ActiveSheet.PrintOut From:=lPages, To:=lPages
        .PrintTitleRows = sTemp
    End With
End Sub