>Hi,
>
>Is the following a reliable method of testing if a printer (network or local) exist?
>
>

>cPrnName = "My Printer Name"
>TRY 
>     set printer to name (cPrnName)
>CATCH 
>     =MESSAGEBOX("Printer " + cPrnName + "failed",48,"Test")
>ENDTRY 
>

>
>Thank you.

Function printerexist
Lparameters cPrintername
Local nLoop
Local Array aTemp(1)
If Empty(cPrintername)
	Return .F.
Endif
If Aprinters(aTemp)<=0
	Return .F.
Endif
For nLoop=1 To Alen(aTemp,1)
	If Upper(Alltrim(aTemp[nLoop,1]))==Upper(Alltrim(cPrintername))
		Return .T.
	Endif
Endfor
Return .F.
Endfunc