Index: APPS/common/Print/impl/PrintAPI.cls.xml
===================================================================
diff -u -r29059 -r41597
--- APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 29059)
+++ APPS/common/Print/impl/PrintAPI.cls.xml	(.../PrintAPI.cls.xml)	(revision 41597)
@@ -47,7 +47,7 @@
 	
 	merge Settings = ^TECH("PRINT",Toepassing,ComputerNaam,PrinterType)
 	
-	quit $zobjClassmethod(PrinterKlasseNaam,"%New",Toepassing , .Settings)
+	quit $zobjClassmethod(PrinterKlasseNaam,"%New",.Settings)
 ]]></Implementation>
 </Method>
 
@@ -125,6 +125,17 @@
 	Quit BestaatPrinter
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBartenderPrinterVoorDevice">
+<FormalSpec>Device:%String</FormalSpec>
+<ReturnType>APPS.common.Print.LabelPrinter</ReturnType>
+<Implementation><![CDATA[
+	#Dim Settings as %String
+	Set Settings("Device")= Device	
+	Set Printer = ##class(APPS.common.Print.impl.BartenderPrinter).%New(.Settings)
+	Quit Printer
+]]></Implementation>
+</Method>
 </Class>