Hallo sobbat
CakarMedia.Blogspot.com jumpa lagi nih yee bersama ayee...
kali ini cakar media mau bagi tutorial yang kaitannya dengan cetak mencetak (printing), yapz, kali ini yang kita pelajari yaitu bagaimana cara membuat tombol print atau cetak dengan menggunakan tombol buatan kita sendiri, akan tetapi tombol ini kita akan buat di Ms. Excel, yuk kita simak tutorialnya.
yang pertama siapkan printer yang sudah kita instal drivernya, berikutnya buka program Ms. excel lalu buatlah Shapes dengan bentuk seperti ini, atau buatan sobbat yang lebih keren..
dan designnya seperti ini
Okeh, berikutnya masuk ke area Macro VB Project, dengan cara menekan tombol ALT+F11, jika sudah terbuka klik kanan pada bagian this workbook pilih insert lalau pilih module.
setelah itu masukan/ketik scriptnya untuk tombol print sebagai berikut :
Berikutnya kembali ke lembar kerja excel kita, dan kita fokus ke tombol yang sudah kita buat tadi, klik kanan tombolnya lalu pilih Assign Macro.
Berikutnya pilih Cetak, lalu klik OK.
Okeh Sekarang coba sobbat tes tombolnya.....maka secara otomatis akan mencetak keseluruhan sheet yang ada, nah untuk mengatasinya agar tidak langsung mencetak sekaligus, Ane siapin nih tabelnya untuk script VB nya, dan mulailah bereksperimen, sesuai dengan kebutuhan anda.. OK selamat mengerjakan...
| NO | KODE VISUAL BASIC | FUNGSINYA |
| 1 | ActiveWorkbook.PrintOut | Mencetak workbook yang aktif |
| 2 | Worksheets.PrintOut | Mencetak semua Worksheet |
| 3 | Sheets.PrintOut | Mencetak semua Sheet |
| 4 | Sheets("Sheet1").PrintOut | Mencetak Sheet 1 saja |
| 5 | Sheets(Array("Sheet1","Sheet3")).PrintOut | Mencetak Sheet1 dan Sheet3 (Sheet yg ada dalam Array) |
| 6 | Selection.PrintOut | Mencetak Range yang di Select atau di blok |
| 7 | Range ("A1:F10").PrintOut | Mencetak data di range A1:F10 |