A friend asked me for help the he has a customer with Win XP and a HP-DeskJet3400(USB) printer
installed with the local PC. The sistem works in Network with VFP 7.0 + SP1.

He is using this code to check if there is a printer installed:

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
 
ENDFUNC

The problem is that Aprinters() doesnt returns the local USB printer.
Does someone has a workaround for this.
Any API to get all the Local and Network printers.

Thanks in advance.

Peter