Index: APPS/common/Print/impl/PrintAPI.cls.xml
===================================================================
diff -u -r41597 -r59934
--- APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 41597)
+++ APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 59934)
@@ -24,6 +24,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefZPLPrinter">
+<FormalSpec>Toepassing:%String="",ComputerNaam:%String=..#DefaultComputerID</FormalSpec>
+<ReturnType>APPS.common.Print.ZPLPrinter</ReturnType>
+<Implementation><![CDATA[
+	#dim DeviceString as %String = ""
+	;bepaal device ifv wkstation, toepassing
+	Set DeviceString = $Get(^TECH("PRINT",Toepassing,ComputerNaam,"ZPLPrinter","Device"))
+	if $$$Not($Length(DeviceString)){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen ZPL printer gevonden voor toepassing "_ Toepassing_" en werkstation " _ ComputerNaam ))
+	}
+	Quit ##class(APPS.common.Print.impl.ZPLPrinter).%New(DeviceString)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLabelPrinter">
 <FormalSpec>Toepassing:%String="",ComputerNaam:%String=..#DefaultComputerID</FormalSpec>
 <ReturnType>APPS.common.Print.LabelPrinter</ReturnType>