Try removing the printers first, then adding them, that might be causing the slowness
=================================================
Option Explicit
Dim objNetwork, strUNCPrinter1, strUNCPrinter2, strUNCPrinter3
strUNCPrinter1 = "\\SERVER\warprt06"
strUNCPrinter2 = "\\SERVER\WARPRT08"...