Üstadım Api ile dediğin olay kolayca halledilir.

Kod çalışınca döngü ile array içine alınır printer adları.Ve sende bir daha array ekleyip ordaki verilerle alınan printer adlarına göre işlem yapabilirsin atıyorum kafadan.

For i = 1 to printer sayısı
  Aa= Aa & printerad &";"
Next

Yukarıdaki gibi Aa diziye tüm printer adlarını aldırırsın.

Sonrada 
Dim arr,arr2
Arr= Array(sayfa1,sayfa2,sayfa3...)
Arr2 =Array(Hp,brother,canon.....)

Yukarıdaki dibi kendin array belirlersin.

Sonrada Aa ile alınan dizi içini Arr ve Arr2 ile aldırdığımız verilere göre kıyaslanır.

Yapması zor değil gibi görünüyor.Tabi kodları örnek olsun diye kafadan yazdım mantığı göstermek için.

Akşama doğru deneyebilirim dediklerimi.
İsterseniz bu mantığa göre uğraşabilirsiniz.