КАК получить список ВСЕХ доступных принтеров? VBA-Excel2003

[BelkaJul]

Привет всем, проблема следующая.
В самом начале макроса надо сделать определённый принтер АКТИВНЫМ (ибо из всех принтеров, что доступны пользователям только данный формата А3).
на строку:
Application.ActivePrinter = "\\GOLOVKO\Canon Bubble-Jet S4500"
программа ругалась:
Metod 'ActivePrinter' of object '_Application' failed
Загвоздка оказалась в том, что имя принтера надо указывать не как
"\\GOLOVKO\Canon Bubble-Jet S4500", а "\\GOLOVKO\Canon Bubble-Jet S4500 (Ne00:)".
Где (Ne00:) - номер принтера в списке доступных. Т.е. второй принтер будет (Ne01:).
ЧТО МНЕ НЕ НРАВИТСЯ: если будет установлен ЕЩЕ ОДИН принтер, то программа в которой чётко прописан принтер с указанием номера - работать будет мягко говоря "не корректно".
ВОПРОС: как в VBA получить список ВСЕХ доступных принтеров?