Nancy sa come formattare un foglio di lavoro in modo che le righe vengano ripetute nella parte superiore di ogni pagina di una stampa. Quello che vuole fare, tuttavia, è che le righe vengano ripetute nella parte superiore di ogni pagina stampata tranne l’ultima.

Non esiste un modo diretto per eseguire questa operazione, ma è possibile simulare tale stampa utilizzando una macro per eseguire l’operazione. 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 seguente macro 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

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11000) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia di menu precedente di Excel qui:

Righe ripetute su una stampa eccetto sull’ultima pagina.