Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2815 -r2823
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2815)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2823)
@@ -75,6 +75,11 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="blLabelPrinter">
+<Type>BL.Sys.LabelPrinter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LabelKlantLayout">
 <Type>%String</Type>
 </Property>
@@ -553,6 +558,7 @@
 	Set sc=rs.Execute(..BatchID)
 	Set Count=0
 	For  Quit:'rs.Next()  Do
+	
 	. Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID"))
 	. Quit:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
 	. Set VolgNr=rs.Data("Sequence")
@@ -566,9 +572,16 @@
 	. . If $D(EndNr) Quit:Count>EndNr
 	. . Do blLabelPrinter.Add(pxLabel)
 	Do:proc.PostProcess(blLabelPrinter) blLabelPrinter.Print2Bartender()
+	Set ..blLabelPrinter=blLabelPrinter
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLabelPrinter">
+<ReturnType>BL.Sys.LabelPrinter</ReturnType>
+<Implementation><![CDATA[	Quit ..blLabelPrinter
+]]></Implementation>
+</Method>
+
 <Method name="EtiketOne">
 <FormalSpec>oQ</FormalSpec>
 <Implementation><![CDATA[