[COLOR=red][B]On Error Resume Next[/B][/COLOR]
[COLOR=red][B]For I = 1 to 20[/B][/COLOR]
[COLOR=#4169e1]Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne[B][COLOR=#ff0000]" & Format(I, "00") & "[/COLOR][/B]:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\xxxxxxxx\PRINTER_COLOR on Ne[B][COLOR=#ff0000]" & Format(I, "00") & "[/COLOR][/B]:"",,TRUE,,FALSE)"[/COLOR]
[B][COLOR=#ff0000]Next I[/COLOR][/B]
[B][COLOR=#ff0000]On Error GoTo 0[/COLOR][/B]