I believe it's spelled customer. You almost get me tricked.

>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