Clipper/FiveWin - aprinters()

lei en una respuesta de Gabriel Pascual que la funcion aPrinters() te devuelve la lista de impresoras, intenté hacerlo pero no funciona, me mandarias un pequeño ejemplo.
(y si requiere alguan lib en especial).
gracias.
Marcelo

STATIC aPrinters

GetPrinters()

REDEFINE COMBOBOX aGets[ 8 ] VAR oDbf:IMP_BOL ITEMS aPrinters ID 301

FUNCTION GetPrinters()
*-------------------------------
//LOCAL oIni, aPrinters, cText
LOCAL oIni, cText

local GetWindir:="C:\WINDOWS\"

aPrinters := {}
oIni := tTxtFile():New( GetWinDir+"WIN.INI")

IF oIni:Seek( "[DEVICES]", 0, 1 )

oIni:Advance()
cText := oIni:ReadLine()
Aadd( aPrinters, " ")
Do While !Empty( cText ) .and. !"["$cText
Aadd( aPrinters, StrToken( cText, 1, "=" ) )
oIni:Advance()
cText := oIni:readLine()
ENDDO

ENDIF

oIni:End()

RETURN aPrinters

te agradezco tu tiempo en responder, pero no funciona.
MArcelo