Menggunakan VBA (Visual Basic for Applications) di Excel, dapat mengotomatiskan pengaturan halaman atau Page Setup untuk Worksheet.
Ini mencakup pengaturan seperti orientasi halaman, ukuran kertas, margin, header, footer, dan banyak lagi.
Menggunakan VBA memungkinkan pengguna dengan mudah mengatur tata letak dan aspek halaman yang sesuai dengan kebutuhan spesifik secara otomatis.
Page Setup adalah bagian dari lembar kerja Excel yang mengatur parameter halaman, seperti orientasi (potret atau lanskap), ukuran kertas, margin, header, footer, dan properti lainnya yang berhubungan dengan tampilan lembar kerja saat dicetak.
Fungsi apa saja yang bisa diatur dalam Pagesetup dengan menggunakan VBA.
Fungsi PageSetup | Keterangan |
---|---|
.Orientation | Untuk mengatur orientasi halaman, dapat bernilai xlPortrait untuk potret atau xlLandscape untuk lanskap. |
.PaperSize | Untuk mengatur ukuran kertas yang digunakan saat mencetak, seperti xlPaperA4 , xlPaperLetter , xlPaperLegal , dan banyak lagi. |
.LeftMargin .RightMargin .TopMargin .BottomMargin | Untuk mengatur ukuran margin kiri, kanan, atas, dan bawah dalam satuan yang ditentukan (biasanya dalam satuan piksel atau inci). |
.CenterHeader .LeftHeader .RightHeader | Untuk menetapkan teks pada bagian tengah, kiri, dan kanan dari header. |
.CenterFooter .LeftFooter .RightFooter | Untuk menetapkan teks pada bagian tengah, kiri, dan kanan dari footer. |
.PrintArea | Untuk menentukan area cetak yang diinginkan |
.Zoom | Untuk mengatur tingkat zoom (skala) saat mencetak. Misalnya, .Zoom = 80 akan mencetak dengan perbesaran 80%. |
.FitToPagesWide .FitToPagesTall | Untuk mengatur jumlah halaman lebar atau tinggi untuk mencetak seluruh konten ke dalam jumlah halaman yang diinginkan. |
.PrintTitleRows .PrintTitleColumns | Untuk menentukan baris atau kolom yang akan diulang di setiap halaman saat mencetak (judul yang tetap muncul di setiap halaman cetak). |
.PrintGridlines .PrintHeadings | Untuk mengatur apakah garis grid dan judul akan dicetak atau tidak. |
.CenterHorizontally .CenterVertically | Untuk mengatur apakah konten akan dicetak di tengah halaman secara horizontal atau vertikal. |
Berikut adalah contoh contoh untuk menggunakan VBA dalam mengatur Page Setup pada lembar kerja Excel:
Contoh 1: Mengatur Orientasi dan Ukuran Kertas
Sub SetupPage() With ActiveSheet.PageSetup .Orientation = xlLandscape ' Mengatur orientasi halaman menjadi landscape .PaperSize = xlPaperA4 ' Mengatur ukuran kertas menjadi A4 End With End Sub
Contoh 2: Mengatur Area Cetak dan Margin
Sub SetupPage() With ActiveSheet.PageSetup .PrintArea = "A1:F30" ' Mengatur area cetak menjadi rentang A1:F30 .LeftMargin = Application.InchesToPoints(0.5) ' Mengatur margin kiri menjadi 0.5 inch .RightMargin = Application.InchesToPoints(0.5) ' Mengatur margin kanan menjadi 0.5 inch .TopMargin = Application.InchesToPoints(0.75) ' Mengatur margin atas menjadi 0.75 inch .BottomMargin = Application.InchesToPoints(0.75) ' Mengatur margin bawah menjadi 0.75 inch End With End Sub
Contoh 3: Menambahkan Header dan Footer
Sub SetupPage() With ActiveSheet.PageSetup .CenterHeader = "Ini adalah Header Tengah" ' Menambahkan teks di header tengah .LeftFooter = "Ini adalah Footer Kiri" ' Menambahkan teks di footer kiri .RightFooter = "Ini adalah Footer Kanan" ' Menambahkan teks di footer kanan End With End Sub
Untuk penjelasan tentang penggunaan Header dan Footer di VBA, saya jelaskan lebih lanjut di materi setelah ini, silahkan klik materi selanjutnya.