nwtot_imp = APRINTERS(awimpress) && retornará um array com todas a impressoras nwimp = 0 && acumulador que terá valor maior que zero caso a nossa impressora esteja definida no Windows for ipp = 1 to nwtot_imp && loop de 1 ao total de impressoras existentes if "Xerox N17 PostScript"$upper(awimpress[ipp,1]) && se o nome existir no array nwimp = ipp && nosso identificador rotorna qual é a posições dela no array de impressoras exit endif endfor if nwimp > 0 SET PRINTER TO NAME awimpress[ipp,1] && as próximas impressões serão efetuadas nesta impressora até um próximo SET PRINTER TO endif