strComputer = "." objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2") colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_PrinterConfiguration") For Each objPrinter in colInstalledPrinters try ? "Name: " , objPrinter.Name ? "Collate: " , objPrinter.Collate ? "Copies: " , objPrinter.Copies ? "Driver Version: " , objPrinter.DriverVersion ? "Duplex: " , objPrinter.Duplex ? "Horizontal Resolution: " , objPrinter.HorizontalResolution If objPrinter.Orientation = 1 Then strOrientation = "Portrait" Else strOrientation = "Landscape" EndIf ? "Orientation : " , strOrientation ? "Paper Length: " , objPrinter.PaperLength / 254 ? "Paper Width: " , objPrinter.PaperWidth / 254 ? "Print Quality: " , objPrinter.PrintQuality ? "Scale: " , objPrinter.Scale ? "Specification Version: " , objPrinter.SpecificationVersion DO case case objPrinter.TTOption = 1 strTTOption = "Print TrueType fonts as graphics." case objPrinter.TTOption = 2 strTTOption = "Download TrueType fonts as soft fonts." otherwise strTTOption = "Substitute device fonts for TrueType fonts." ENDCASE ? "True Type Option: " , strTTOption ? "Vertical Resolution: " , objPrinter.VerticalResolution CATCH TO loExc endtry Next