Index: CHUI/FOP/Print/MainForm.cls.xml
===================================================================
diff -u -r56005 -r73459
--- CHUI/FOP/Print/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 56005)
+++ CHUI/FOP/Print/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 73459)
@@ -633,10 +633,11 @@
 	;Form aanmaken om bijhorende bestanden in weer te geven
 	Set Msg=$S(PrintOneFile:"Selecteer een bestand:",1:"Selecteer een of meerdere bestanden:")
 	Set frmList=##class(TCHUI.Dlg.TList).CreateAndPrepare(..Caption,Msg,,60,18,"Reprint",'PrintOneFile)    ;'PrintOneFile=checkboxlist
+	Set DocBaseDirectoryUtils = ##class(BL.Sys.FOP.DocBaseDirectoryUtils).%New()
 
 	;Bijhorende bestanden aan lijst toevoegen
-	Do areAddReprintFilesToList(frmList,PrintGroup,$$$OMRPrintDirNtw)
-	Do areAddReprintFilesToList(frmList,PrintGroup,$$$OMRSourceDirNtw)
+	Do areAddReprintFilesToList(frmList,PrintGroup,DocBaseDirectoryUtils.GeefOMRPrintDirNtw())
+	Do areAddReprintFilesToList(frmList,PrintGroup,DocBaseDirectoryUtils.GeefOMRSourceDirNtw())
 
 	;Form weergeven
 	Quit:(frmList.ShowModal()=$$$mrCancel)
@@ -722,11 +723,13 @@
 	If $$$ISERR(tmpStatus) Do  Quit
 	. Do $$$ShowMsgBoxSimple(..Caption,"Fout bij het uitvoeren van de query '"_Query_"': "_$C(13,10)_$$ParseStatus^vhLib(tmpStatus))
 	
+	
+	#dim OMRSourceDirNtw As %String = DocBaseDirectoryUtils.GeefOMRSourceDirNtw()
 	Set Cnt=0
 	For  Quit:('RS.Next())  Do
 	. Quit:(RS.Data("Type")="D")
 	. ;RS.Get("Name")	. ;RS.Get("Type")	. ;RS.Get("Size")	. ;RS.Get("DateCreated")	. ;RS.Get("DateModified")	. ;RS.Get("ItemName")
-	. If NetworkDir=$$$OMRSourceDirNtw Do
+	. If NetworkDir = OMRSourceDirNtw Do
 	..  Set ItemName="* "_RS.Data("ItemName")
 	..  Set Key=$$$SourceDirKeyPrefix_RS.Data("Name")
 	. Else  Do