Index: BL/Flow/TransportLijst/Doc.cls.xml
===================================================================
diff -u -r29059 -r66129
--- BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 29059)
+++ BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 66129)
@@ -102,8 +102,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set PrinterName=$G(PrinterName,..#PrinterDFL)   ; "DocuColor"
-	Set Task=..CreateFopTask("DocRenderAndPrint",,)
-	Set sc=..DocSetRenderDefs(Task.AddDoc(), $LB("TOER",+DatumVan,+DatumTot,VerzendWijze), ..#ADBTemplateANotas, "PS", $LB(), pWithLogo)   ; lbDocs = $LB("TOER",+$H,+$H,"OD1")
+	#dim Task As Sys.FOP.Task =..CreateFopTask("DocRenderAndPrint",,)
+	#dim Doc As Sys.FOP.emDoc = Task.AddDoc()
+	Set sc=..DocSetRenderDefs(Doc, $LB("TOER",+DatumVan,+DatumTot,VerzendWijze), ..#ADBTemplateANotas, "PS", $LB(), pWithLogo)   ; lbDocs = $LB("TOER",+$H,+$H,"OD1")
+	If PrinterName = "LEVBON_PS" {
+		#dim pTraySelect As %String = ##class(BL.Sys.FOP.CommonTasks).GetPrinterTray(PrinterName,"GEEL","TRAY")
+		Set Doc.XSLParameters = ..BuildXsltParams(Doc.XSLParameters,,,pTraySelect)   ; pTraySelect toevoegen aan XsltParams (Let op: er is nog geen controle op dubbele KVP's) 
+	}
 	Set NumCopies=1
 	Set:($$$ISOK(sc)) sc=Task.AddActionPrint(PrinterName,NumCopies,,)
 	Quit:($$$ISERR(sc)) sc