Excel Macro Tombol Print Dari Halaman Sampai

Dalam mempelajari bahasa pemprogrmaan VBA dan macro excel, supaya kita bisa mengikutinya  dimulai bertahap demi bertahap  mulai dari yang sederhana dulu, simpel dan paling mudah, kemudian kita lanjut dengan penambahan, memodif dan mengembangkan  kodingnya sedikit-sedikit supaya tidak puyeng.

Pada artikel sebelumnya sudah dibahas membuat tombol print sederhana menggunakan macro  excel, kita lanjutkan lagi. Pada artikel ini kita akan belajar menambahkan sedikt memodif koding print yaitu jika kita ingin mencetak halaman dari no sekian sampai no  dan berapa jumlah kali cetak.

Coding sederhanannya seperti dibawah ini

Sub Button1_Click()
Worksheets(“SlipGaji”).PrintOut from:=1, To:=3, Copies:=3

End Sub

Ket :

Worksheets (“namasheetnya”) diubah nama sheet yang akan diproses cetak.

From:= untuk mencetak  page dari x

To = untuk mencetak page sampai x

Copies:= berapa jumlah copinya.

Silahkan diuji coba nantinya halaman excel akan mencetak halaman dari 1 sampai ke 3 dengan jumlah copy sebanyak 3 kali.

Dari coding datas tentunya kurang praktis kalau ingin mengubah halamanya yang akan dicetak, karena untuk mengaturnya ada didalam koding, untuk kita perbarui lagi atau kita kembangkan lagi rumusnya dimana pengaturan kita letakan pada sheet (diluar print area) supaya lebih mudah mengaturnya.

Contohnya sheet (SlipGaji) seperti gambar dibawah ini

Sebelumnya buat dua button yaitu : Button 1  dengan nama Print dan Button 2 dengan nama Print Preview.

• Kita masukan kodingnya pada button 1

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

Worksheets(“SlipGaji”).PrintOut from:=mulai, To:=sampai, Copies:=kali

End Sub

Dalam memahami koding pada prinsipnya seperti kita belajar rumus matematika disekolah, langkah-langkah mengerjakan yaitu kita buat variabel-variabel yang diketahui.

Penjelasan koding :

Variabel

mulai : yaitu variabel untuk cetak dari halaman ke x pada cell/range L5

sampai  : yaitu variabel untuk cetak sampai halaman ke x pada cell/range L6

kali : yaitu peubah varibel untuk banyaknya copy pada cell L7

untuk variabel ini kita bisa  beri nama fleksibel sesuka kita .

Selanjutnya rumusnya kita ubah dengan variabel yang telah kita buat diatas

PrintOut from:=mulai, To:=sampai, Copies:=kali

from:=1 diganti dengan variabel mulai  >>> from:=mulai

To:=3 diganti dengan variabel sampai >>> To:=sampai

Copies:=3 diganti dengan variabel sampai >>>> Copies:=kali

• Koding untuk button 2 Print Preview

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

Mudah bukan, selamat mencoba.

Artikel selanjutnya kita membuat Tombol print otomatis slip gaji.

Terimakasih semoga bermanfaat.