TOMBOL PRINT DI FORM EXCEL VBA

Mencetak Dokumen Dengan Jumlah Tertentu Menggunakan VBA

Terkadang kita menginginkan agar data dalam dokumen Excel dicetak dengan jumlah tertentu sesuai dengan nilai yang kita masukkan, yang pada umunya hal ini dapat kita lakukan ketika akan mau mencetak sebuah dokumen (Ctrl+P)
yang biasanya menampilkan jendela seperti berikut :


Perintah mencetak seperti yang terlihat pada gambar di atas akan menghasilkan cetakan sebanyak 3 kali sesuai dengan nilai yang dimasukkan di 'number of copies'

Di dalam Macro VBA Excel sendiri tentu telah disediakan perintah atau kode untuk mencetak seperti di atas dan Kode standardnya adalah PrintOut, Contoh :

Sheets(1).PrintOut

Kode tersebut hanya akan melakukan perintah mencetak sebanyak 1 kali data dokumen Excel yang terdapat di dalam Sheet 1 - sehingga jika kita ingin mencetak dokumen sebanyak 3 kali, maka kita harus menekan tombol yang berisi kode tersebut sebanyak 3 kali pula, Hal ini tentunya akan sangat kurang efektif sekali.

Solusi yang tepat adalah dengan membuat UserForm yang berisi kotak nilai yang difungsikan sebagai nilai untuk jumlah cetakan yang kita inginkan dan tombol untuk mencetak, yang kurang lebih tampilannya seperti berikut :


Setelah Anda sudah membuat UserForm yang kurang lebih tampilannya seperti di atas, langkah selanjutnya adalah klik 2x CommandButton (Tombol Cetak) untuk menampilkan jendela kode - dan kemudian tempelkan kode berikut di dalamnya

Private Sub CommandButton1_Click()
On Error GoTo pesan
Dim isi
isi = TextBox1 * 1
Sheets(1).PrintOut copies:=isi
Exit Sub

pesan:
MsgBox "Anda belum mengisi jumlah cetakan, atau nilai yang Anda masukkan bukan merupakan angka", vbCritical + vbOKOnly
End Sub

Fungsi dari kode di atas adalah melakukan perintah mencetak sebanyak jumlah cetakan yang terdapat di TextBox1, dan jika nilai yang terdapat di TextBox1 bukan merupakan angka atau bernilai kosong maka akan menampilkan pesan error.