Dim wmiSQL As String = "SELECT * FROM Win32_Printer WHERE Default=True"
Dim printers As ManagementObjectCollection = New ManagementObjectSearcher(wmiSQL).[Get]()
For Each printer As ManagementObject In printers
MessageBox.Show(printer.Properties("HorizontalResolution").Value.ToString() & " x " & printer.Properties("VerticalResolution").Value.ToString())
Exit For
Next