Cara membuat tombol print otomatis di excel

Kode diatas digunakan untuk perintah, apabila tombol di klik maka yang dicetak adalah range A1 sampai dengan F10.

Tinggal ditentukan saja rangenya sesuai area yang dicetak.

Sub Cetak()
selection.PrintOut
End Sub

Kalau rumus yang diatas ini, perintahnya sama untuk mencetak / print, tetapi bedanya adalah, sebelum meng-klik tombol cetak, kita terlebih dahulu menseleksi area range yang akan di print. Ini lebih flexibel tentunya apabila dalam satu sheet terdapat beberapa tabel.

Untuk opsi lainnya, tinggal mengganti perintah dibelakang kode .PrintOut.

Untuk kode-kodenya silahkan googling saja.

Cara penggunaan kode VBA untuk membuat tombol cetak di Microsoft Excel

Untuk penggunaan kode-kode diatas, caranya:

Pertama, buat terlebih dahulu tombol cetak. Gunakan saja menu Shape dan pilih bentuk rectangel.

Kedua, pada keyboard tekan tombol ALT+F11 secara bersamaan untuk memunculkan jendela VBA

Ketiga, klik kanan pada this Workbook

Keempat, klik Insert, pilih Module

Pada jendela kera Module tersebut ketikan kode diatas

Kelima, kembali ke area workbook, kemudian klik kanan tombol Print, pilih Asign Macro, pilih Cetak.

Selamat mencoba…

Share this:

• Surat elektronik
• Tweet
• Telegram
• WhatsApp

Menyukai ini:

Suka Memuat...

Terkait

Posted on Desember 13, 2016 at 5:52 pm in berbagi, panduan excel, panduan excel 2007, panduan mengajar TIK, rumus penting excel   |  Feed RSS |    |   Trackback URL

Halo sobat Belajar Office, sudah lama tidak menulis dan baru kali ini admin bisa update kembali. Pada artikel ini  kita akan membahas tentang cara Membuat Tombol Print Otomatis Pada Slip Gaji Excel Satu Lembar Beberapa Slip Sekaligus yang sudah dibahas sebelumnya, sehingga bisa digunakan mencetak secara otomatis slip-slip gaji karyawan dengan mudah, praktis serta bisa berhemat kertas karena satu lembar bisa untuk beberapa slip, cukup dengan menekan tombol print yang akan kita buat ini menggunakan koding Excel vba macro.

Supaya sobat bisa mengikuti silahkan sobat download filenya pada link ini File Latihan Membuat Tombol Print Excel VBA Slip Gaji

Pada format excel tersebut admin buat dengan menggunkan cara kerja rumus yang cukup simpel yaitu pengabungan dari rumus Excel vlookup, INDEXT dan MATCH yang akan dipadukan dengan Excel VBA looping loncat dengan kelipatan sesuai dengan jumlah slip gaji perlembarnya. Pada contoh ini satu lembar bisa untuk 3 slip gaji.

Pada artikel ini admin tidak akan membahas lagi tentang rumus vlookupnya, sobat-sobat jika ingin mendalaminya silahkan baca pada artikel ini Slip Gaji Excel Satu Lembar Beberapa Slip Sekaligus

pada kesempatan ini admin hanya akan membahas cara menambahkan tombol print VBA macro lengkap dengan codingnya.

Langsung saja berikut ini contoh gambarnya :

Setelah didownload file diatas selanjutnya kita buka file tersebut

Pertama siapkan terlebih dahulu kolom untuk pengisian data-data pengaturan no yang akan diprint sebagai berikut :

• Dari No pada cell L5 (untuk input nomer urutan yang akan di print mulai dari …)
• Sampai No pada cell L6 (untuk input nomer urutan yang akan di print sampai no …)
• Jml Copy pada cell L7 (untuk input rangkap slip gaji yang akan diprint)

Kemudian kita tambahkan dua buah command button

Klik dari tab menu DEVELOPER >>> klik Insert >> Command Button

Command button

Jika pada MS Excel sobat yang sobat gunakan, belum muncul atau belum terdapat tab menu developer maka harus disetting dulu,  silahkan baca pada artikel ini Belajar VBA dan Macro Pada Excel Pemula

Selanjutnya kita letakan dua buah tombol seperti pada gambar diatas dengan nama CommandButton1 dan CommandButton1 kemudian kita atur propertiesnya,  atur captionnya atau nama tampilannya menjadi :

• CommandButton1 = Print
• CommandButton2 = Preview

Klik kanan pada tombol commandButton1 >>> Properties >> Caption

properties

Selanjutnya klik kanan pada tombol Print/CommandButton1 selanjutnya ketikan koding dibawah ini

Dim i As Integer
Private Sub CommandButton1_Click()

mulai = Range(“L5”).Value
Sampai = Range(“L6”).Value
kali = Range(“L7”).Value
i = mulai

Do While i <= Sampai

Worksheets(“SlipGaji”).Range(“H2”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 2).Value

Worksheets(“SlipGaji”).PrintOut Copies:=kali

i = i + 3

Loop
End Sub

Penjelasan dan cara kerja rumusnya :

Ketika tombol print ditekan maka printer akan mencetak slip gaji mulai dari pada data yang diiput pada cell L5, NIK muncul pada cell L5 kemudian rumus vlookup aktif data-data slip gaji no 1 muncul, kemudian untuk slip no2 NIK muncul otomatis menggunakan rumus index dan Match berdasarkan data dari NIK slip gaji no 1,  maka vlookup pada slip gaji no 2 aktif dan memunculkan data-data gaji, slip gaji ke 3 juga sama prinsipnya.

Selanjutnya koding rumus looping akan aktif dengan loncat 3 maka pada NIK atas akan muncul otomatis NIK melanjutkan data yang belum di cetak. Proses printing akan berhenti ketika cell L6 terpenuhi, sedangkan cell L7 untuk menentukan rangkap yang akan dicetak. Pusing ya bacanya..

Selanjutnya masukan koding untuk tombol Preview/CommandButton2

Klik kanan pada tombol preview pilih >> View Code

Selanjutnya ketikan koding dibawah ini

Private Sub CommandButton2_Click()
Worksheets(“SlipGaji”).PrintPreview
End Sub

Selesai, pembahasan menganai cara Membuat Tombol Print Otomatis Pada Slip Gaji Excel dan sudah siap digunakan, selamat mencoba.

Untuk file yang sudah jadi bisa sobat download pada link dibawah ini, silahkan dikembangkan sesuai kebutuhan masing-masing.