>>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
>
Thank you, Edward. I will use Aprinters().
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
