APPS.common.Print.ZPLPrinter,TECH.RegisteredObject %String 1 %String list DeviceString:%String 1 1 %Status 1 ZPLLabel:%String ZPLLabel:%String ZPLLabelStream:%GlobalCharacterStream 0){ w $system.Encryption.Base64Decode(Chunk) Set Chunk = ZPLLabelStream.Read(.ChunkLength, .ReturnCode) } Close ..DeviceString } catch { Close ..DeviceString #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(TECH.ExceptionHandler).LogEnRethrow(Exception) } ]]>