Cara Membuat Footer Nama File Workbook Excel di Setiap Halaman yang Akan Di-Print
Pada saat pengguna ingin mencetak bagian manapun dalam suatu file workbook maka akan mencetuskan event Workbook_BeforePrint.
Adapun footer adalah suatu catatan yang letaknya berada di bawah tulisan pada suatu halaman yang dicetak.
Dalam Excel, Anda biasanya mengatur footer melalui menu Page Setup pada menu ribbon Page Layout, yang mana tepat berada di sudut kiri bawah grup Page Setup terdapat ikon panah berukuran kecil yang saat di-klik akan menampilkan kotak dialog Page Setup, kemudian pada tab Header/Footer terdapat kotak pilihan Footer yang berisi bermacam-macam tulisan yang akan dihasilkan pada footer tersebut.
Untuk cara mudah dan tercepatnya maka Anda bisa menyusun kode macro berikut:
1. Buka file Excel yang sudah ada atau buat workbook baru, pastikan agar sheet telah memiliki konten data di dalamnya, jangan dibiarkan kosong.
2. Buka VBE dengan cara menekan Alt+F11, kemudian tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.
3. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.
4. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.
5. Pada kotak daftar pilihan Object pilih Workbook.
6. Pada kotak daftar pilihan Procedure pilih BeforePrint.
7. Tepat di bawah Private Sub Workbook_BeforePrint tetapkan variabel Worksheet:
Dim y As Worksheet
8. Gunakan loop untuk mengulangi perintah pada setiap sheet:
For Each y In ThisWorkbook.Sheets
9. Tugaskan variabel untuk membuat footer yang contohnya menampilkan nama file atau workbook:
y.PageSetup.CenterFooter = ThisWorkbook.FullName
10. Akhiri loop:
Next y
12. Kode lengkapnya menjadi sebagai berikut:
Dim y As Worksheet
For Each y In ThisWorkbook.Sheets
y.PageSetup.CenterFooter = ThisWorkbook.FullName
Next y
End Sub
13. Kembali ke worksheet dengan cara menekan Alt+Q.
14. Silakan Anda siapkan kertas dan printer kemudian jalankan perintah print seperti biasa.
Demikian pembahasan tentang cara membuat footer nama file workbook Excel untuk setiap halaman yang akan di-print, semoga postingan ini bermanfaat.