I need to have a routine which will read the list of printers for a machine. Unfortunately, the 'aprinters()' command does not show the full name under NT. When in Word (which is the app this is for), using VBA, I established the printer name using this code:

set oWord = createobject("Word.Application")
? oWord.ActivePrinter

When the contents of active printer was printed, it gave 'Claims on NE00:' for a value, but when the server was reset it showed 'Claims on NE02:'. In the environment this is in, I've noticed that the names of the various printers switch all the time.

I'm looking for a Windows call to get the printer names as this will be called as a COM object from many apps in this environment.

Has anyone seen one?