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.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
