Enumerasi Printer

Pada kasus-kasus tertentu mungkin kita perlu mengetahui daftar atau list printer yang ada, dan memilih nya sebagai printer yang aktif. Untuk lebih jelasnya perhatikan contoh berikut ini:

Untuk mengetahui daftar printer yang ada

Dim mPrinter As Printer

For Each mPrinter In Printers
    Debug.Print mPrinter.DeviceName
Next

Untuk mengetahui printer yang aktif saat ini

Debug.Print Printer.DeviceName

Untuk menentukan printer yang aktif sesuai dengan daftar printer yang ada

Dim sPrinterAktif As String
Dim mPrinter As Printer

sPrinterAktif = "Microsoft Office Document Image Writer"
For Each mPrinter In Printers
    If sPrinterAktif = mPrinter.DeviceName Then
        Set Printer = mPrinter
        Exit For
    End If
Next

Semoga bermanfaat

Iklan

3 Tanggapan

  1. mangstap banget gan.
    ijin sedot ilmu.

  2. sama-sama gan, makasih sudah mampir 😀

  3. makasih tutorialnya gan, kebetulan ane lagi cari materi ini.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: