Monday, May 28, 2012

Fungsi Untuk Mengetahui Default Printer

Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan.

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

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