14 January 2021

Cara Membuat Form Settingan Printer di Vba Excel

cara membuat form settingan printer di vba excel

 Assalamu’alaikum wr.wb

Cara Membuat Form Settingan Printer di Vba Excel - Pada kesempatan kali ini admin akan berbagi tentang cara membuat form settingan printer dimana form sett printer ini berfungsi untuk mengatur/memilih printer mana yang kita inginkan untuk dieksekusi nantinya.

Sebenarnya secara default dalam mengatur/memilih sebuah printer pada microsoft sendiri sudah disediakan pada perangkat tersebut dan caranya juga pun cukup mudah.  untuk menampilkan sebuah tool print tersebut kamu hanya cukup menekan tombol CTRL+P maka tool print tersebut seketika akan muncul. 

Kunjungi Juga: Trik Cara Edit Cell dan Protect Sheet Menggunakan Password di Vba Excel

Ketika tool print tersebut muncul maka kamu akan melihat frame printer, page range, copies, tombol properties dll. Untuk merubah settingan printer, kamu cukup mengklik combobox disamping properties. Sebenarnya tutorial cara membuat tombol print menggunakan Vba Excel memang sudah banyak dipublikasikan oleh teman-teman lainnya. Tapi itu hanya tombol untuk menampilkan printnya saja. 

Dalam membuat tombol print pada worksheet dengan memanfaatkan coding vba tidaklah begitu sulit, kamu cukup membuat perintah contonya mau ngeprint sheet1, kamu cukup membuat coding berikut 

Sheet1.PrintOut / Sheet1.PrintPreview
atau
Sheets("cetakA").PrintPreview / Sheets("cetakA").PrintOut

Tapi, bagaimana caranya membuat form settingan printer seperti tool print yang sudah disediakan pihak microsoft sendiri?

Disini admin tidak membuat secara spesifik seperti tool print di microsoft, tapi setidaknya dalam tampilan memilih printer hampir sama dengan tool print yang dibuat oleh microsoft.

Untuk membuat tombol print di excel tersebut kita membutuhkan sebuah VBA (Visual Basic Application) yang sudah tersedia di perangkat microsoft.

Kunjungi Juga: Cara Membuat Pencarian Data Pada Listbox Vba Excel

Sebelum membuat form pada Vba kamu harus mengaktifkan/menampilkan sebuah tab developer terlebih dahulu. Bagi kamu yang belum tahu cara menampilkan tab developer silahkan kunjungi disini Cara Menampilkan Tab Ribbon Developer Office 2007/2010

Baiklah untuk membuat form tool settingan printer menggunakan Vba Excel silahkan simak tutorialnya dibawah ini.

1. Buat Form

Tambahkan 1 buah Userform dan beri nama SETT PRINTER 

2. Tambahkan Komponen

Berikut nama-nama komponen yang digunakan:

NAMA KOMPONEN JUMLAH
Label 3 Buah
Frame 1 Buah
TextBox 2 Buah
CommandButton 4 Buah

Desainlah seperti berikut atau sesuai keinginan kamu

cara membuat form settingan printer di vba excel

3. Input Coding Tombol Pilih Printer A

Setelah form nya selesai di atur, silahkan double klik pada tombol pilih printer A dan masukkan coding berikut:

Private Sub CommandButton1_Click()
Dim printeraktif As String
printeraktif = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show

Me.printerA = Application.ActivePrinter
Sheets("SettingPrinter").Range("b1") = Application.ActivePrinter
Application.ActivePrinter = printeraktif
End Sub

4. Input Coding Tombol Pilih Printer B

Pada Tombol Pilih Print B masukkan coding berikut:

Private Sub CommandButton2_Click()
Dim printeraktif As String
printeraktif = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show

Me.printerB = Application.ActivePrinter
Sheets("SettingPrinter").Range("b2") = Application.ActivePrinter
Application.ActivePrinter = printeraktif
End Sub

5. Input Coding Cetak Sheet A dan Cetak Sheet B

Selanjutnya Pada  Pada Tombol Cetak Sheet A dan Cetak Sheet B masukkan coding berikut:

Private Sub CommandButton3_Click()
Set ws = Sheets("cetakA")
Dim printeraktif As String
printeraktif = Application.ActivePrinter

Application.ActivePrinter = Me.printerA
ws.PrintOut
Application.ActivePrinter = printeraktif
End Sub

Private Sub CommandButton4_Click()
Set ws = Sheets("cetakB")
Dim printeraktif As String
printeraktif = Application.ActivePrinter

Application.ActivePrinter = Me.printerB
ws.PrintOut
Application.ActivePrinter = printeraktif
End Sub

6. Tampilkan Nama Printer

Supaya nama printer tampil di textbox silahkan copas coding berikut.

Private Sub UserForm_Initialize()
printerA = Sheets("SettingPrinter").Range("b1")
printerB = Sheets("SettingPrinter").Range("b2")
printerA.Enabled = False
printerB.Enabled = False
End Sub

Bagi yang mau mencoba silahkan klik tombol download di bawah ini.

Itulah tutorial cara membuat form settingan printer pada vba excel.

Semoga tutorial ini bermanfaat dan dapat menambah wawasan kita dalam memperlajari sebuah coding pada vba excel.

Terima Kasih

Incoming Search Terms

cara membuat tombol print di vba excel, membuat tombol print di vba excel, membuat tombol cetak di excel, cara membuat tombol cetak di excel, buat tombol cetak di excel, cara buat tombol cetak di excel


Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.