FUNCTION F_TEM_IMPRESSORA() LOCAL xret =APRINTERS(xvimprew2) IF TYPE("xvimprew2")=="U" *F_MENSA ->MESSAGEBOX =F_MENSA(64,"Antes de imprimir, você deve instalar uma impressora."+CHR(13)+ ; "Para tal, clique no botão 'Iniciar', aponte para 'Configurações', clique"+CHR(13)+ ; "em 'Impressoras' e, em seguida, clique duas vezes em 'Adicionar"+CHR(13)+ ; "Impressora'.",64,psisresu) xret=.F. ELSE xret=.T. ENDIF RELEASE xvimprew2 RETURN xret ENDFUNCThe problem is that Aprinters() doesnt returns the local USB printer.