Problemas con SET PRINTER (II)

Necesitaria ayuda sobre el siguiente codigo.

**********************************************************
impresora=ALLTRIM(thisform .list1.value)
APRINTERS(impresoras)
FOR
i=1 TO ALEN(impresoras,1)
IF &impresoras(i,1)==&impresora then
SET DEVICE TO PRINTER
SET PRINTER ON
SET PRINTER TO &impresora
ENDIF
ENDFOR
**********************************************************

El problema que tengo es que, al ejecutar el mismo aparece un mensaje que
dice "No se encuentra la variable <nombre_impresora>". <nombre_impresora> es
el valor que toma "&impresoras(i,1)". Obviamente no puedo imprimir.

Alguna ayuda?