Membuat tombol Cetak atau tombol Print
di lembar kerja Excel sebenarnya sangat mudah karena hanya memerlukan
beberapa baris kode saja. Langkah-langkah untuk membuat tombol print
adalah sebagai berikut:
Dalam perintah PrintOut juga terdapat beberapa parameter opsi yang bisa dipakai, selengkapnya bisa di lihat di tabel berikut ini:
Contoh penggunaan PrintOut dengan parameter adalah:
- Tambahkan Shape atau gambar juga boleh ke lembar kerja Excel.
- Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau bisa juga dengan cara klik Tab Developer dan klik tombol Visual Basic.
- Buat Module dengan cara klik kanan pada VBAProject atau pada ThisWorkbook --> Insert --> Module.
- Akan tampil jendela Module(code), kemudian masukkan kode berikut:
- Selanjutnya kembali ke Lembar kerja Excel, klik kanan pada Tombol Cetak yang tadi dibuat dan pilih Assign Macro...
- Pada jendela Assign Macro pilih Cetak dan kemudian klik OK.
- Selesai. Tinggal di coba apakah tombol print sudah berfungsi dengan benar ataukah masih ada debug atau error.
Sub Cetak()
ActiveSheet.PrintOut
End Sub
Perintah ActiveSheet.PrintOut berfungsi untuk mencetak Sheet yang aktif. Selain memakai script atau code ActiveSheet.PrintOut bisa juga memakai code lain, seperti pada tabel berikut ini:
Code VBA | Fungsi |
---|---|
ActiveWorkbook.PrintOut | Mencetak workbook yang aktif |
Worksheets.PrintOut | Mencetak semua Worksheet |
Sheets.PrintOut | Mencetak semua Sheet |
Sheets("Sheet1").PrintOut | Mencetak Sheet 1 saja |
Sheet1.PrintOut | Mencetak Sheet 1 saja |
Sheets(Array("Sheet1","Sheet3")).PrintOut | Mencetak Sheet1 dan Sheet3 (Sheet yg ada dalam Array) |
Selection.PrintOut | Mencetak Range yang di Select atau di blok |
Range ("A1:F10").PrintOut | Mencetak data di range A1:F10 |
Dalam perintah PrintOut juga terdapat beberapa parameter opsi yang bisa dipakai, selengkapnya bisa di lihat di tabel berikut ini:
Pilihan | Fungsi |
---|---|
From | Halaman pertama yang di cetak. Jika argumen ini di abaikan maka pencetakan otomatis dimulai dari halaman 1 |
To | Halaman terakhir yang di cetak. Jika argumen ini di abaikan maka pencetakan sampai halaman terakhir |
Copies | Jumlah Salinan yang di cetak. Jika di abaikan maka hanya satu kali cetak |
Preview | Menampilkan Print Preview sebelum mencetak (True atau False) |
ActivePrinter | Mengatur nama printer aktif |
PrintToFile | Pilih True untuk mencetak ke File |
Collate | Pilih True untuk menyusun beberapa Salinan |
PrToFileName | Menentukan nama file yang ingin di cetak, jika opsi PrintToFile bernilai True |
IgnorePrintAreas | Mengabaikan Print Area (True atau False) |
Contoh penggunaan PrintOut dengan parameter adalah:
ActiveSheet.PrintOut From:=1, To:=3, Copies:=3Maksud dari code tersebut adalah mencetak aktif Sheet dari halaman 1 sampai 3 dengan jumlah salinan sebanyak 3 lembar. Begitulah cara membuat tombol cetak di Excel. Contoh File bisa di unduh disini.
1 komentar:
tq bro sangat bermanfaat
Posting Komentar