Bagaimana cara mencetak footer di halaman terakhir hanya di Excel?

Secara default, dengan built-in Bagian atas dan bagian bawah fitur Excel, Anda dapat dengan mudah menambahkan footer di bagian bawah setiap halaman yang dicetak di lembar kerja. Jika Anda ingin menambahkan footer ke halaman terakhir yang dicetak hanya di lembar kerja, bagaimana caranya? Tutorial ini menyediakan skrip VBA untuk membantu Anda menyelesaikan tugas ini selangkah demi selangkah.

Cetak footer di halaman terakhir hanya dengan kode VBA

Silakan jalankan kode VBA berikut untuk mencetak footer kustom pada halaman terakhir yang dicetak hanya di Excel.

1. Buka lembar kerja yang ingin Anda cetak dengan footer khusus yang ditampilkan hanya pada halaman yang dicetak terakhir.

2. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA berikut di Modul (Kode) jendela.

Kode VBA: Cetak footer hanya di halaman terakhir

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

Note: Dalam kode, harap ganti konten ini "Ketik informasi footer Anda di sini" dengan informasi footer Anda sendiri.

4. tekan F5 kunci untuk menjalankan kode.

Kemudian lembar kerja yang aktif akan dicetak dengan memasukkan footer khusus pada halaman yang dicetak terakhir saja.