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),"")