Membuat Tombol Print di Excel - Di artikel sebelumnya saya sudah membahas tentang bagaimana cara mengkombinasikan tombol CheckBox dan Parameter Select Case untuk membuka jendela dialog Print. Nah, pada kesempatan kali ini kita akan sama-sama belajar bagaimana cara mencetak sebuah lembar kerja dari sebuah UserForm secara otomatis disertai dengan daftar beberapa lembar kerja atau Sheet yang diletakkan dalam ComboBox, juga TextBox untuk menentukan berapa banyaknya jumlah cetakan yang diinginkan.

Dengan kata lain, dengan menggunakan teknik ini maka anda tidak perlu lagi menekan tombol Ctrl+P untuk mencetak lembar kerja Excel, karena perintah ini akan dibuat dan disematkan dalam sebuah UserForm. Dan berikut ini panduan lengkapnya. Namun sebelumnya, silahkan anda baca artikel terkait berikut.

Baca tutorial terkait berikut :

Cara melakukan pencarian secara berulang-ulang
Kode ini akan terus berjalan sebelum pengguna melakukan dengan benar
Bekerja dengan cepat dengan menggunakan Macro VBA untuk mencetak lembar kerja
Oke, jika anda memutuskan untuk Membuat Perintah Macro Untuk Mencetak Lembar Kerja Tertentu Beserta Banyaknya Jumlah Cetakan maka caranya adalah sebagai berikut :

1. Buka jendela Visual Basic Editor dengan cara menekan tombol Alt+F11 keyboard anda.
2. Selanjutnya adalah membuat sebuah UserForm disertai dengan objek-objek VBA seperti ComboBox, TextBox, dan CommandButton.
   
3. Setelah dirasa cukup mendesain tampilan userForm, kini saatnya memberikan perintah terhadap terhadap setiap objek yang dapat dilakukan dengan cara meng-klik kanan Userform kemudian memilih perintah ViewCode dari menu pop-up yang muncul
4. Copy paste baris kode yang sudah saya siapkan berikut ke dalam jendela kode yang sudah terbuka
   

   Private Sub UserForm_Initialize()
   Dim N As Long
   For N = 1 To ActiveWorkbook.Sheets.Count
       ComboBox1.AddItem ActiveWorkbook.Sheets(N).Name
   Next N
   End Sub
   
   Private Sub CommandButton1_Click()
   On Error GoTo x
   Set ws = Sheets(ComboBox1.Value)
   For N = 1 To TextBox1
       ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
   Next
   Exit Sub
   x:
   MsgBox "Perbaiki data"
   End Sub

   Penjelasan singkatnya Pada baris pertama, isi utama dari perintah ini adalah mengumpulkan nama-nama dari setiap lembar kerja yang aktif, kemudian nama-nama tersebut diletakkan ke dalam ComboBox
   Sementara isi perintah pada baris CommandButton1 berisi beberapa hal penting antara lain:
   

   • On Error Goto berfungsi sebagai Trap Error yakni sebuah perintah awal yang akan dijalankan ketika terjadi kesalahan
   • Menentukan nama lembar kerja yang akan dicetak. Dari baris kode di atas, cara menentukannya berada di bagian Set ws = ...
   • Pada baris selanjutnya, saya menggunakan parameter Looping yang bertujuan untuk menentukan berapa banyaknya jumlah yang ingin di cetak sesuai dengan isi nilai yang terdapat di kotak TextBox

Setelah anda selesai membuat serangkaian baris-baris kode diatas disertai dengan desain userFormnya, langkah terakhir adalah simpan file excel dengan menggunakan format Macro Enable Workbook (.xslm) atau Macro Binary Workbook (.xslb) agar kode-kode tersebut dapat dijalankan sebagaimana mestinya.
Terimakasih sudah berkunjung di situs kami, jangan lupa kunjungi pula channel ini untuk melihat video tutorial terbaru dari kami. Adios

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :