VB6 Code - Fungsi Untuk Mengetahui Default Printer

Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan menggunakan kode VB6:

Option Explicit

Function DefPrintName() As String
  DefPrintName = Printer.DeviceName
End Function

Contoh penggunaan kode di atas

Private Sub Command1_Click()
  MsgBox DefPrintName, vbInformation, "Default Printer"
End Sub