Cara mengatur area cetak menggunakan vba (dengan contoh)


Anda dapat menggunakan sintaks berikut di VBA untuk mengatur area cetak dan menampilkan pratinjau cetak sebelum benar-benar mencetak lembaran:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

Makro khusus ini akan mengatur area cetak ke rentang sel yang dipilih saat ini dalam lembar yang disebut Sheet1 dan kemudian memberikan pratinjau cetak.

Catatan : Jika Anda ingin mencetak rentang yang dipilih tanpa mempratinjaunya, ganti .PrintPreview dengan .PrintOut di makro.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh : Cara mengatur area cetak menggunakan VBA

Misalkan kita memiliki lembar berikut di Excel dengan data berbagai pemain bola basket:

Kita dapat membuat makro berikut untuk menentukan area cetak dan menampilkan pratinjau cetak sebelum benar-benar mencetak lembaran:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

Misalkan kita selanjutnya memilih rentang sel A2:B7 :

Ketika kita menjalankan makro ini, area cetak secara otomatis diatur ke rentang sel yang dipilih dan jendela pratinjau cetak berikut muncul:

Ini menunjukkan kepada kita seperti apa tampilan halaman jika kita mencetak rentang sel yang dipilih saat ini.

Jika kita mengubah cell range yang dipilih, area cetaknya akan berubah secara otomatis.

Misalnya, kita memilih rentang A1:B11 :

Jika kita menjalankan makro ini lagi, area cetak secara otomatis diatur ke rentang sel yang dipilih dan jendela pratinjau cetak berikut akan muncul:

Pratinjau cetak sekarang menunjukkan bahwa kita akan mencetak rentang A1:B11 jika kita melanjutkan untuk mencetak.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk properti PrintArea di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mencetak ke PDF
VBA: Cara menggunakan pratinjau cetak
VBA: cara membuat folder

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *