lnPrinters = APRINTERS(laPrinters) IF lnPrinters > 0 IF ASCAN(laPrinters,lcYourPrinter,1,lnPrinters,1,13) > 0 *** Do what you want to do... ENDIF ELSE MESSAGEBOX("No installed printers") ENDIFHTH.
>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