Happy to be of help.

Wanted to add that over the years I have seen the need to (properly) add

On Error Goto 0 after the final line. This resets the error handling back to 'normal' which will help prevent unintended consequences of possible errors further down in the code.


Code:
oldprinter = Application.ActivePrinter
    
    For i = 0 To 15
       curNePrint = Format(i, "00")
       On Error Resume Next
          Application.ActivePrinter = "\\ServerName\ZDesigner S4M-203dpi ZPL on ne" & curNePrint & ":"
    Next i
    
    ActiveWindow.Selection.PrintOut Copies:=1
    Application.ActivePrinter = oldprinter
    On Error Goto 0
~Aerious