>George,
>How do I tell which of the printers in the array is the default?

Compare the value in the first column with the value that SET('PRINTER', 2) returns like this:

lcdefprnt = SET('PRINTER', 2)
lnlast = APRINTERS(a_prn)
lldefault = .F.
lni = 0
DO WHILE lni < lnlast AND NOT lldefault
  lni = lni + 1
  lldefault = (lcdefprnt == UPPER(a_prn[lni, 1]))
ENDDO
IF lldefault
  ? a_prn[lni, 1], a_prn[lni, 2]
ENDIF