Technical data

372 Agilent Infiniium 9000 Series Oscilloscopes Programmer's Reference
18 Hardcopy Commands
:HARDcopy:PRINters?
Query :HARDcopy:PRINters?
The :HARDcopy:PRINters? query returns the currently available printers.
Returned Format
[:HARDcopy:PRINters?]
<printer_count><NL><printer_data><NL>[,<printer_data><NL>]
<printer_count> The number of printers currently installed.
<printer _data> The printer number and the name of an installed printer. The word
DEFAULT appears next to the printer that is the currently selected default
printer.
The <printer_data> return string has the following format:
<printer_number>,<printer_string>{,DEFAULT}
Example This example places the number of installed printers into the variable
varCount, loops through it that number of times, and prints the installed
printer names to the computer's screen.
Dim varResults As Variant
Dim lngI As Long
myScope.WriteString ":HARDcopy:PRINters?"
varResults = myScope.ReadList(ASCIIType_BSTR, vbLf)
Debug.Print FormatNumber(varResults(0), 0)
For lngI = 1 To varResults(0)
Debug.Print CStr(varResults(lngI))
Next lngI