Thanks, I will try it

-----Original Message-----
From: steve.percival@c...
[mailto:steve.percival@c...] 
Sent: 17 March 2003 10:05 AM
To: professional vb
Subject: [pro_vb] Re: Checking for existence of Installed Printers

I have it on good authority that if an app is running under citrix it
will 
use the client PC printers. Also you can simplify your code below to 

cnt = printers.count


> Hi,

I need to be able to check whether any printers have been set up on the
user's Pc where he is running the app. Is it safe to loop thru the
Printers in the Printers collection?

   Dim cnt As Integer

   Dim pr As Printer

   For Each pr In Printers

      cnt = cnt + 1

   Next pr

   MsgBox ("Found " & Trim(CStr(cnt)) & "printers")

So if cnt greater than zero then there is a printer set up.

And

If the app runs on a Citrix server would the above code be good enough
to check whether a printer exists or not? And exactly whose printers
will I pick up on the citrix server. The App runs in a network
environment

I have checked the above code in a network environment and it seemed to
work, but is it safe and will it work in a Citrix environment

Thank you

Dries