John,

The getrpinter() function will show a list of the named network printers that are installed in the users machine. Try it from the command box with cp = getprinter()

I have a button on a form for printing that selects the printer. It has the following code...

cp = getprinter()
IF !EMPTY(cp)
	thisform.cprinter = cp
ELse	&& set to the default printer
	thisform.cprinter = SET("Printer",2)
ENDIF
SET PRINTER TO NAME (thisform.cprinter)

The selected printer shows in a TextBox that displays the value of cp

HTH