Index: APPS/common/Print/impl/PrintAPI.cls.xml
===================================================================
diff -u -r59692 -r59695
--- APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 59692)
+++ APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 59695)
@@ -29,15 +29,12 @@
 <ReturnType>APPS.common.Print.ZPLPrinter</ReturnType>
 <Implementation><![CDATA[
 	#dim DeviceString as %String = ""
-	;bepaal device if wkstation, toepassing
+	;bepaal device ifv wkstation, toepassing
 	Set DeviceString = $Get(^TECH("PRINT",Toepassing,ComputerNaam,"ZPLPrinter","Device"))
-	if $Length(DeviceString){
-		Quit ##class(APPS.common.Print.impl.ZPLPrinter).%New(DeviceString)
-	} else {
+	if $$$Not($Length(DeviceString)){
 		;TODO fout smijten
 		;geen printer definitie
 	}
-	
 	Quit ##class(APPS.common.Print.impl.ZPLPrinter).%New(DeviceString)
 ]]></Implementation>
 </Method>
Index: APPS/common/Print/impl/ZPLPrinter.cls.xml
===================================================================
diff -u -r59691 -r59695
--- APPS/common/Print/impl/ZPLPrinter.cls.xml	(.../ZPLPrinter.cls.xml)	(revision 59691)
+++ APPS/common/Print/impl/ZPLPrinter.cls.xml	(.../ZPLPrinter.cls.xml)	(revision 59695)
@@ -20,7 +20,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..DeviceString = DeviceString
+	Set ..DeviceString = "|PRN|"_DeviceString
 	Set ..ZPLLabels = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
 ]]></Implementation>