FoxPro/Visual FoxPro - AYUDA PARA IMPRIMIR!!!

Alguien sabe como puedo imprimir un report directamente por una impresora aunque no sea la predeterminada?

Ejemplo:
repor form inform1.frx y ahora aquí como puedo decirle la impresora directamente sin tener que seleccionarla o poner 'prompt'

repor form inform1.frx TO PRINTER NOCONSOLE

Te imprimira en el printer que tengas configurado por defecto. Si deseas variar de printer sin usar el PROMPT chequea en la ayuda el comando SET PRINTER TO

En foxpro 2.6 para windows lo puedes hace con el siguiente programita
pero necesitar primero cargar la libreria foxtools.fll

aqui esta el ejemplo

SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
clear

GetProfStr = RegFn("GetProfileString", "CCC@CI", "I")
WrProf = RegFn("WriteProfileString","CCC","I")

settings = replicate(chr(0),80)
retlen = callfn(GetProfStr, "WINDOWS", "DEVICE",;
"", @settings, len(settings))
_actual = left(settings, retlen)
=sys(1037)

?''
?'Impresora Predeterminada => '+_actual
?''

settings = replicate(chr(0), 20*160) && create room for result
retlen = callfn(GetProfStr, "Devices", 0, "", @settings, len(settings))

?"Impresoras Registradas en Windows"
posn = 0
count = 1
do while posn < retlen
lastposn = posn
posn = at(chr(0), settings, count)
count = count + 1
?substr(settings, lastposn+1, (posn-lastposn)-1)
*************************
* Aqui selecionamos la impresora que queremos por ejemplo la de color
************************
if 'COLOR' $ upper(substr(settings, lastposn+1, posn-lastposn))
_cualquiero = substr(settings, lastposn+1, (posn-lastposn)-1)
endif
enddo

settings = replicate(chr(0), 80)
retlen = callfn(GetProfStr, "DEVICES", _cualquiero,;
"", @settings, len(settings))
_cual = left(settings, retlen)

_cual = alltrim(_cualquiero)+','+alltrim(_cualquiero)

**********************
* Establecemos la impresora de color como predeterminada
*******************
=CallFn(WrProf, "Windows", "device",_cual)
=sys(1037)

************************
* Dejamos la impresora anterior como determinada
******************************
=CallFn(WrProf, "Windows", "device",_actual)
=sys(1037)

set library to