Menentukan jumlah cetak dengan kode macro

Menentukan jumlah cetak dengan kode macro - Bekerja dengan Microsoft Excel memang suatu rutinutas menyenangkan apalagi bagi anda yang paham berbagai tips dan trik untuk memaksimalkan kinerja dari aplikasi excel ini, untuk menambah wawasan pada kesempatan kali ini saya akan mengajak anda untuk membahas lebih dalam tentang cetak mencetak dokumen excel. Seperti yang telah banyak diketahui untuk mencetak dokumen excel anda hanya perlu mengklik Office Button yang terletak disudut kiri atas atau klik menu File ( untuk office 2010 ketas ) lalu akan muncul beberapa opsi salah satunya adalah opsi Print atau Cetak, untuk mencetak dokumen excel tentu saja kita memilih opsi Print kemudian akan muncul jendela Print Preview sebagaimana gambar dibawah ini

Menentukan jumlah cetak dengan kode macro

Perhatikan gambar yang saya tandai diatas, ada opsi Print Copies dalam kotak ada nominal 3, opsi ini merupakan Jumlah Cetak, misalnya anda akan mencetak satu dokumen surat jalan sebanyak 10 lembar maka anda harus merubah nominal 3 diatas menjadi 10, begitupun seterusnya sesuai dengan jumlah cetak yang akan anda kehendaki

Menentukan jumlah cetak dengan kode macro

Uraian diatas sering kita lihat dilakukan oleh pekerja yang kurang smart, namun bagi anda yang sudah melalang buana keblog iparengan.com ini tentu anda tidak akan ikut ikutan 'tidak smart' anda harus tampil 'smart' hehehehehe, untuk tampil smart maka kita akan buat sendiri opsi Print Copies dengan menggunakan Userform dan kode macro


Kode macro untuk mencetak dokumen excel adalah

PrintOut

Jika yang dicetak adalah dokumen excel yang ada di sheet1 maka kodenya menjadi

Sheet1.PrintOut

Atau jika anda menggunakan Custom nama sheet bisa juga ditulis seperti ini

Sheets("Surat_Jalan").PrintOut

Kode macro Menentukan area cetak

Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100"

Menentukan posisi kertas yaitu vertikal atau mendatar

Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait ' potret
Sheets("Surat_Jalan").PageSetup.Orientation = xlLandscape ' mendatar

Digabungkan menjadi satu

Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100"
Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait
Sheets("Surat_Jalan").PrintOut

Jika sudah sekarang kita tentukan jumlah cetak Print Copies Copies:=1

Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100"
Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait
Sheets("Surat_Jalan").PrintOut Copies:=3

Saya akan tambahkan jaga jaga biar tidak terjadi error, akan tetapi bukan pakai kode macro On Error

Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100"
Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait
Sheets("Surat_Jalan").PrintOut Copies:=3, Collate:=False, IgnorePrintAreas:=False

Silahkan ganti angka 3 pada kode macro Copies:=3 sesuai dengan kebutuhan anda. Sampai disini selesai akan tetapi masalahnya jumlah cetak pada kode diatas mewajibkan user untuk mengobrak abrik kode macro guna menentukan kode cetaknya, untuk itu gunakan form dengan satu kontrol textbox sebagai gantinya, halah prakteknya begini

Langsung saja masuk kejendela VBA
Insert Userform, seret kontrol Textbox dan Commandbutton yang ada pada kotak ToolBox masing masing satu buah saja
Kurang lebih gambarnya seperti ini

Menentukan jumlah cetak dengan kode macro

+ Masukan kode macro kedalam event Commandbutton
Private Sub CommandButton1_Click()
If TextBox1 < 0 Or TextBox1 = "" Then Exit Sub Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100" Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait Sheets("Surat_Jalan").PrintOut Copies:=TextBox1, Collate:=False, IgnorePrintAreas:=False End Sub

Masukan kode macro kedalam event Commandbutton
Private Sub CommandButton1_Click()
If TextBox1 < 0 Or TextBox1 = "" Then Exit Sub Sheets("Surat_Jalan").PageSetup.PrintArea = "$A1:$G100" Sheets("Surat_Jalan").PageSetup.Orientation = xlPortrait Sheets("Surat_Jalan").PrintOut Copies:=TextBox1, Collate:=False, IgnorePrintAreas:=False End Sub


Sekarang tinggal isikan angka sebanyak apa saja kedalam textbox maka sebanyak itulah dokumen excel akan tercetak, akan tetapi jangan sekali kali memasukan huruf alfabet kedalam TextBox1 karena akan berakibat error, gunakan tips agar TextBox1 hanya bisa diisi angka untuk meminimalisir error

Baca artikel Cara setting print dan cetak dengan macro

Download File Menentukan jumlah cetak dengan kode macro
Link tersedia
Mau semua fle sampel silahkan klik > disini

Demikianlah cara Menentukan jumlah cetak dengan kode macro, semoga bermanfaat
No comments