You don't need loop through the APRINTERS() array, use ASCAN instead ...
lnPrinters = APRINTERS(laPrinters)
IF lnPrinters > 0
IF ASCAN(laPrinters,lcYourPrinter,1,lnPrinters,1,13) > 0
ENDIF
ELSE
MESSAGEBOX("No installed printers")
ENDIF HTH.
>>Using VFP7, when printing, how do I programmatically specify the printer tray to which the print job should be sent?
>>
>Hello Terry;
>In this code.. The printer output will to a printer named my specific printer>nwtot_imp = APRINTERS(awimpress)
>nwimp = 0
>for ipp = 1 to nwtot_imp
> if "my specific printer"$lower(awimpress[ipp,1])
> nwimp = ipp
> exit
> endif
>endfor
>if nwimp > 0
> SET PRINTER TO NAME awimpress[ipp,1]
>endif
>Hope this helps
