Cara Membuat Form Settingan Printer di Vba Excel

Posted by Admin

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

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.

DOWNLOAD FILE

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