Cara Membuat Tombol Print Macro Dari Nomor Sampai Nomor pada Aplikasi Excel

Daftar Isi

Assalamualaikum Wr. Wb.
Halo sahabat GTK semuanya, semoga dalam keadaan sehat dan bahagia 

Kali ini saya ingin berbagi tutorial tentang excel, bagaimana caranya membuat tombol cetak/print yang bisa ditentukan dari nomor berapa sampai nomor urut berapa sesuai absen ataupun nomor data.

Tombol Macro VBA Print dari Nomor sampai nomor sesuai absen

Tombol cetak ini berguna untuk mempercepat proses cetak, dibandingkan jika harus melakukan print atau (CTRL+P) satu persatu, terlebih jika memili banyak data.

Aplikasi yang akan ditambahkan tombol ini adalah aplikasi excel yang menggunakan rumus vlookup, seperti aplikasi Surat Keterangan Lulus, atapun sejenisnya.

Baiklah tanpa panjang lebar, kita akan langsung praktikan dengan menambahkan fitur ini pada aplikasi yang telah dibagikan sebelumnya yaitu: Aplikasi Olah Nilai Ijazah SD Tahun 2023

Cara Membuat Tombol Print dari sampai Nomor Berapa Menggunkan Macro VBA

1. Silahkan buat dulu kotak untuk mengisikan nomor absen awal dan nomor absen akhir.

2. Tambahkan tombol bisa menggunkan button, atau icon bergambar print yang bisa Anda cari di mesin pencarian google. "Klik Kanan" --- "Asiggn Macro" --- "New"

3. Tambahkan Script Kode Berikut ini:

Dim Awal, Akhir As Integer

Awal = Range("T1").Value

Akhir = Range("X1").Value

If Awal <= Akhir And Awal >= 1 Then

Application.ScreenUpdating = False

    For i = Awal To Akhir

        With Sheets("Form")

            .Range("H1").Value = i

            .PrintOut

        End With

    Next i

Else

    MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Cetak Halaman"

End If

4. Setelah itu silahkan di simpan, kemudian di coba.

5. Jika Anda ingin menerapknya ke aplikasi lain tinggal mengganti saja posisi nomor urut absen yang di vlookup, dan nomor awal serta nomor akhir. yang saya beri warna kuning berikut ini.

Sub Picture6_Click()

Dim Awal, Akhir As Integer

Awal = Range("T1").Value

Akhir = Range("X1").Value

If Awal <= Akhir And Awal >= 1 Then

Application.ScreenUpdating = False

    For i = Awal To Akhir

        With Sheets("Keterangan Lulus")

            .Range("H1").Value = i

            .PrintOut

        End With

    Next i

Else

    MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Cetak Halaman"

End If

End Sub

Demikianlah cara membuat tombol print/cetak pada aplikasi berbasis excel dengan fitur cetak dari nomor berapa sampai nomor berapa sesuai nomor urut data absen menggunakan VBA Macro.

Lihat juga: 7 Tips Cetak / Print Raport Excel Tidak Terpotong dan Rapi

Semoga bermanfaat, khususnya untuk teman-teman yang suka utak-atik aplikasi berbasis excel.

Terima kasih...

Wassalamualaikum Wr. Wb.