Control Button untuk Print Dokumen
Tutorial Level 4
Halo sobat semua..
Tutorial kali ini untuk menjawab Request berikut:
Tuesday, 01 March 2011 03:31 posted by heru
bisa ga buat macro untuk membuat tombol print pada sheet excel, namun di dalam sheet tersebut dibuat menu cetak dari halam ke.. sampai halaman ke.., sehingga lebih praktis.
Jadi intinya adalah, sebuah Button untuk printing document.
Karena itu, deskripsi project kita kali ini adalah:
Ada sebuah Sheet (yang nanti saya beri nama "Front") tempat meletakkan Button dan form Inputan. Dan juga sebuah Sheet lagi (yang nanti saya beri nama "Data") tempat meletakkan data yang akan di print.
Jika kita telah mengisi form inputan dan kemudian menekan tombol PRINT, maka data pada Sheet "DATA" akan ter-print sesuai dengan jumlah halaman pada form inputan.
Dan untuk memulai tutorial ini, anda sebaiknya telah membaca tutorial yang ada pada link "Baca dulu".
Oke, kita anggap semua sudah membaca tutorial diatas.
Mari kita mulai tutorial dengan mengikuti semua segmennya, yaitu:
1. Meyiapkan Layout.
2. Membuat Program.
3. Membuat Button Print.
Yuk, kita mulai yang pertama:
1. Meyiapkan Layout.
Biar project kita ini keliatan keren, maka kita buat lay-out yang sedikit rapi lah. Dan saya sarankan untuk mengikuti sama persis lay-out gambar berikut:
Jadi, kita butuh tempat inputan untuk Dari Halaman berapa, Sampai Halaman berapa dan Mau di print berapa banyak?
Dan di project kita ini, kita membutuhkan 2 Sheet. Sheet pertama (Sheet "Front") untuk meletakkan Button dan Inputan. Dan sheet kedua (Sheet "Data") untuk meletakkan data yang akan di print.
Lihat gambar berikut:
Sheet kedua akan terdiri beberapa page sesuai settingan masing-masing. Berikut adalah gambar Sheet "Data" yang saya zoom out sehingga nampak beberapa page.
Page pada Excel adalah jumlah halaman pada sebuah Sheet yang terbagi sesuai setting page break.
2. Membuat Program.
Setelah lay-out selesai, saatnya kita buat program. Silahkan buka VB Editor.
Selanjutnya, klik 2 kali pada Sheet1 agar muncul code editor.
Selanjutnya, pada code editor yang terbuka, copy code berikut:
Sub testprint()
printDari = Worksheets(1).Cells(2, 3).Value
printSampai = Worksheets(1).Cells(4, 3).Value
jumHalaman = Worksheets(1).Cells(6, 3).Value
If (printDari <> "") And (printSampai <> "") And (jumHalaman <> "") Then
Worksheets(2).PrintOut From:=printDari, To:=printSampai, copies:=jumHalaman
Else
MsgBox "Isi Halaman yang akan di print"
End If
End Sub
3. Membuat Button Print.
Program sudah dibuat. Selanjutnya adalah membuat Button (Tombol) untuk memerintahkan Print.
Insert Button Controls Form (ingat, Controls Form ya.. BUKAN ActiveX Button).
Saat kita insert Button, maka kita akan diminta untuk memilih Macro (Assign Macro).
Pilih Macro yang sebelumnya telah kita buat (testprint). Dan klik OK.
Dan.. Selesai sudah..!
Beri nama Print pada Button dan tampilan akhirnya akan seperti ini:
Nah, sekarang, silahkan coba klik Button yang telah kita buat. Jangan lupa untuk mengisi data pada Sheet "Data". Pastikan printer telah terhubung dan telah di setup.
Dan seharusnya, saat kita klik Button Print, maka printer akan mulai mencetak halaman yang kita tentukan.
Nah.. Sampai disini dulu yah.. See Yaa..