Membuat Tombol PRINT di Ms Excel

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:

1.   Tambahkan Shape atau gambar juga boleh ke lembar kerja Excel.

2.   Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau bisa juga dengan cara klik Tab Developer dan klik tombol Visual Basic.

3.   Buat Module dengan cara klik kanan pada VBAProject atau pada ThisWorkbook --> Insert --> Module.

4.   Akan tampil jendela Module(code), kemudian masukkan kode berikut:

5.  Sub Cetak()

6.  ActiveSheet.PrintOut

7.  End Sub

8.   Selanjutnya kembali ke Lembar kerja Excel, klik kanan pada Tombol Cetak yang tadi dibuat dan pilih Assign Macro...

9.   Pada jendela Assign Macro pilih Cetak dan kemudian klik OK.

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

 

Share :