• Membuat Perintah Macro Untuk Mencetak Lembar Kerja Tertentu Beserta Banyaknya Jumlah Cetakan

    Print Lembar Kerja dengan Macro VBA 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.
      membuat userform di excel
    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


    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger