>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
>ENDFUNCYour code can be replaced with this:
Function F_TEM_IMPRESSORA
Return (APRINTERS(laPrinters)>0)
ENDFUNCI have an USB Printer and is show up by APRINTERS()
