Index: APPS/common/Print/impl/ZPLPrinter.cls.xml
===================================================================
diff -u -r59695 -r74443
--- APPS/common/Print/impl/ZPLPrinter.cls.xml	(.../ZPLPrinter.cls.xml)	(revision 59695)
+++ APPS/common/Print/impl/ZPLPrinter.cls.xml	(.../ZPLPrinter.cls.xml)	(revision 74443)
@@ -38,7 +38,8 @@
 	set LabelIterator = ##class(TECH.ListIterator).%New(..ZPLLabels)
 	While LabelIterator.HasNext() {
 		Set ZPLLabel = LabelIterator.Next()
-		Do ..PrintZPLLabel(ZPLLabel)
+		;Do ..PrintZPLLabel(ZPLLabel)
+		Do ..PrintZPLLabelFromBase64EncodedStream(ZPLLabel)
 	}
 ]]></Implementation>
 </Method>
@@ -60,6 +61,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintZPLLabelFromBase64EncodedStream">
+<FormalSpec>ZPLLabelStream:%GlobalCharacterStream</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		;Set ..DeviceString = "|PRN|\\jwi-w10\TestPM43"
+		Open ..DeviceString:(/DATATYPE="RAW"):5
+		Use ..DeviceString
+		Do ZPLLabelStream.Rewind()
+		#dim Chunk as %String = ""
+		#dim ChunkLength as %Integer = 30000 ; moet een veelvoud zijn van 3 voor Base64 decode
+		#dim ReturnCode as %Status
+		Set Chunk = ZPLLabelStream.Read(.ChunkLength, .ReturnCode)
+		while (ChunkLength>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)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Clear">
 <Implementation><![CDATA[	Do ..ZPLLabels.Clear()
 ]]></Implementation>