Hello Daniel;

>How can I set one printer of Windows Printers List as a Default printer by Fox code ?

Here is a sample on how can I make a choice of a printer named "MY SPECIAL PRINTER"..

nwtot_prns    = APRINTERS(awprinters)
nwind         = 0
for i = 1 to nwtot_prns
    if  "MY SPECIAL PRINTER"$upper(awprinters[i,1])
        nwind = i
        exit
    endif
endfor
if  nwind > 0
    SET PRINTER TO NAME awprinters[nwind,1]
else
    wait window "Hey.. Why my special printer isn't installed ?" nowait
    return
endif

HTH


Claudio