Tips Membuat Tombol Print Pada Ms. Excel

Membuat Tombol Print pada lembar kerja di Ms. Excel memudahkan kita dalam proses output data yang akan di print. baik itu untuk satu workbook banyak workbook, worksheet tertentu atau semua worksheet yang kita kerjakan. caranya memang mudah hanya memerlukan beberapa baris kode saja. langkah-langkah membuat tombol print ada;ah sebagai berikut :
1. Langkah Pertama
Buat Shape untuk Tombol Print pada menu insert atau boleh juga menggunakan gambar.

2. Langkah Kedua
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

3. Langkah Ketiga
Akan muncul Layar Module masukan kemudian masukkan kode berikut:

Sub Cetak()
ActiveSheet.PrintOut
End Sub

4. Langkah Keempat

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.

  

5. Langkah Terakhir

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	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

Demikian semoga bermanfaat