It prints In amost 100 % of must printers costumers
However some of them complain it does not print

I sent a test to a costumer of mine and, he sent back the result

Please take look and help me analize the problem

The costumer reports same name "HP DESKJET 3420 SERIES" for 4 messages

********************************
SET SAFETY OFF

lcPrinter=GetPrinter()
= MESSAGEBOX( lcPrinter) && costumer reports: HP DESKJET 3420 SERIES
if empty(lcPrinter)
Set printer to default
else
Set printer to name ALLTRIM(lcPrinter)
ENDIF
= MESSAGEBOX( + lcPrinter) && && costumer reports: HP DESKJET 3420 SERIES

Set Classlib To rawprint
vprdev=CreateObject("PrintDev")
= MESSAGEBOX(alltrim (("Printer",3))) && costumer reports: HP DESKJET 3420 SERIES

*If Empty(vprdev.cprintername)
vprdev.cprintername = ALLTRIM(SET("Printer",3))
= MESSAGEBOX( vprdev.cprintername) && costumer reports: HP DESKJET 3420 SERIES

*Endif
If vprdev.oOpen()
vprdev.cfilename = pedPrint
if !vprdev.oPrintFile()
wait window 'Erro na impressora' nowait
endif
vprdev.oClose()
Endif

Release vprdev
Set Classlib to

SET SAFETY ON
*******************************************************

Printer icon has a "?" mark

The printer prints normaly from microsoft Word