Index: APPS/MAG/LabelPrintService.cls.xml
===================================================================
diff -u -r67572 -r71290
--- APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 67572)
+++ APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 71290)
@@ -50,15 +50,15 @@
 </Method>
 
 <Method name="PrintEen1BarcodeEtiket">
-<FormalSpec>Tekst:%String</FormalSpec>
+<FormalSpec>Tekst:%String,PrinterLocatie:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Etiketten As %ListOfObjects = ..GeefEen1BarcodeEtiket(Tekst)
+	#dim Etiketten As %ListOfObjects = ..GeefEen1BarcodeEtiket(Tekst, PrinterLocatie)
 	Do ..LabelPrinter.PrintEtiketten(Etiketten)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefEen1BarcodeEtiket">
-<FormalSpec>Tekst:%String</FormalSpec>
+<FormalSpec>Tekst:%String,PrinterLocatie:%String</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set Etiketten = ##class(%ListOfObjects).%New()
@@ -68,7 +68,7 @@
 		Set Etiket = ##class(BL.Etiket.EenBarcodeEtiket).%New()
 		Set Etiket.Tekst = ##class(TECH.StringUtils).VervangNietPrintbareKaraktersDoorSpatie(DeTekst)
 		if $l(##class(TECH.StringUtils).TrimWhitespaces( Etiket.Tekst)) {
-			Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("1BARCODEETIKET")	
+			Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("1BARCODEETIKET", PrinterLocatie)	
 			Do Etiketten.Insert(Etiket)
 		}
 	}