Table of Contents
Cara Membuat Tombol Cetak di Excel
Rumus Excel [.] com – 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:
- 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:
Sub Cetak()
ActiveSheet.PrintOut
End Sub - 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.
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:=3
Maksud 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. Semoga Bermanfaat….