Membuat Tombol Print Otomatis Excel Macro

Pada kesempatan ini admin akan memberikan contoh latihan  membuat tombol print otomatis menggunakan coding Excel VBA Macro. Dimana kita cukup membuat satu form/format nanti data-datanya akan berubah otomatis saat dicetak dengan mengambil data dari sheet lain. karena menggunakan rumus vlookup untuk cetaknya masih manual maka kita tambahkan tombol print otomatis menggunakan Excel Macro ini.

Kalau dalam microsoft word seperti sistem kerja cetak mail marge, bedanya jika menggunakan Excel memiliki kelebihan kita bisa memasukan rumus-rumus perhitungan didalamnya. Pembuatan Print otomatis menggunakan Macro VBA Excel ini bisa kita terapkan pada pembuatan cetak rapot, pembuatan slip gaji, pembuatan tagihan pembayaran dan format-format lainnya yang kita butuhkan.

Pada Contoh kali admin akan membuat tombol print otomatis untuk  format Slip Gaji karyawan, pada postingan sebelumnya sudah pernah admin bahas cara membuat slip gaji karyan menggunakan rumus vlookup excel, kekurangan pada format vlookup tersebut yaitu jika kita ingin mencetak atau print masih manual satu persatu. Jika data banyak tentunya akan menghabiskan waktu yang lama sehingga kurang simpel, kurang efektif dan efisien.

Untuk itu kita akan buat tombol print otomatisnya, lengkap dengan settingan dari nomer tetentu sampai nomer tertentu dan berapa kali copy cetaknya.

Langsung saja berikut langkah-langkahnya :

Supaya bisa mengikuti dengan mudah sobat bisa download contoh file latihannya dibawah ini

Slip Gaji Otomatis Latihan

• Pertama buat tombol print dan print preview
• Buat tabel untuk menuliskan : Dari No (Cell L5) , Sampai No (Cell L6) dan Copy (Cell L7)
• Selanjutnya masuk pada koding

Untuk print preview kodingnya

Sub Button2_Click()
Worksheets(“SlipGajiOtomatis”).PrintPreview
End Sub

Koding untuk print

Sub Button1_Click()
mulai = Range(“L5”).Value
sampai = Range(“L6”).Value
kali = Range(“L7”).Value

For i = mulai To sampai
Worksheets(“SlipGajiOtomatis”).Range(“D6”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 2).Value
Worksheets(“SlipGajiOtomatis”).Range(“D7”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 3).Value
Worksheets(“SlipGajiOtomatis”).Range(“D8”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 4).Value
Worksheets(“SlipGajiOtomatis”).Range(“D12”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 5).Value
Worksheets(“SlipGajiOtomatis”).Range(“D13”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 6).Value
Worksheets(“SlipGajiOtomatis”).Range(“D14”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 7).Value
Worksheets(“SlipGajiOtomatis”).Range(“D15”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 8).Value
Worksheets(“SlipGajiOtomatis”).Range(“D16”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 9).Value
Worksheets(“SlipGajiOtomatis”).Range(“D17”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 10).Value
Worksheets(“SlipGajiOtomatis”).Range(“H12”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 11).Value
Worksheets(“SlipGajiOtomatis”).Range(“H13”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 12).Value

Worksheets(“SlipGajiOtomatis”).PrintOut Copies:=kali

Next i
End Sub

Ket kodingnya:

Mulai, sampai, kali merupakan variabel pengaturan halaman yang akan dicetak.

Rumus kita cocokan antara cell pada sheet “SlipGajiOtomatis” cetak  dengan sheet“DataKaryawan”

Contoh :

NIK “SlipGajiOtomatis”  = NIK “DataKaryawan”

Worksheets(“SlipGajiOtomatis”).Range(“D6”).Value = Worksheets(“DataKaryawan”).Cells(i + 3, 2).Value

Range(“D6”) =Cells(i + 3, 2)

Untuk Cells (i + 3, 2)  urutannya baris dulu baru kolom artinya mulai baris ke 3+i  kolom ke 2

(i untuk mulai print)  jika mulai dari  no 1 maka 3+1 =4  jadinya baris ke 4 kolom ke 2

For i = mulai To sampai —-  Next i  ini untuk proses perhitungan otomatis (looping)

Untuk memahami silahkan download file yang sudah jadi dibawah ini

Tombol Print Otomatis Excel Macro Slip Gaji

Terimaksih semoga bermanfaat.