Index: BL/Sys/FOP/CommonTasks.cls.xml
===================================================================
diff -u -r40524 -r47930
--- BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 40524)
+++ BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 47930)
@@ -235,6 +235,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ApplyPrinterRedirects">
+<Description>
+FOP Printers omleiden (bvb. indien technisch defect) 
+MERK OP: deze werkwijze is sterk aan te raden, t.o.v. het instellen van een redirect op Windows-niveau </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PrinterName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// Bijvoorbeeld ;Set:(PrinterName="LEVBON_DI") PrinterName="LEVBON_GLS2"   ; Omleiding vanwege defecte printer tray 
+	
+	Quit PrinterName
+]]></Implementation>
+</Method>
+
 <Method name="GetPrinterTray">
 <Description>
 ============================================================================================================================ 
Index: DCPRINT2.mac.rou
===================================================================
diff -u -r29059 -r47930
--- DCPRINT2.mac.rou	(.../DCPRINT2.mac.rou)	(revision 29059)
+++ DCPRINT2.mac.rou	(.../DCPRINT2.mac.rou)	(revision 47930)
@@ -23,6 +23,7 @@
  . . Set:(PosPakbon="BEGIN") DocType=$$$ldtBeginPakbonLos_DocType
  . . Set:(KLNr=$$$KlantVanHoeckeNV)||(KLNr=$$$KlantHalux) DocType=$$$ldtBonWit
  . if '$length(Printer) set Printer = ##class(BL.Legacy.DCPRINT2).GeefPrinter(BONNr)
+ . Set Printer = ##class(BL.Sys.FOP.CommonTasks).ApplyPrinterRedirects(Printer)
  . Set sc=##class(BL.Flow.Levering.Doc).RenderAndPrintDocViaType(BONNr,DocType,Printer,1)   ; printer: leeg=default
  . Kill ^KUB(BONNr,"F")
  . If Warn,$$$ISERR(sc) Do CLOSE^vhPRINTER,WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"")