Index: CHUI/FOP/Print/MainForm.cls.xml
===================================================================
diff -u -r29059 -r31832
--- CHUI/FOP/Print/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 29059)
+++ CHUI/FOP/Print/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 31832)
@@ -8,7 +8,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//Col parameters
+// Col parameters
 
 ]]></Content>
 </UDLText>
@@ -844,6 +844,8 @@
 <Method name="dslLogQueryInit">
 <FormalSpec><![CDATA[Sender:TCHUI.TControlBasis,&Result:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	#dim Cnt,DateTime,Query,UserId,UserName,tmpStatus
+	
 	Set Query="BL.FOP.Print:QGetLog"
 	Set RS=##class(%ResultSet).%New(Query)
 	If RS=$$$NULLOREF Do
@@ -853,13 +855,15 @@
 	If $$$ISERR(tmpStatus) Do  Quit
 	. Set Result="Fout bij het uitvoeren van de query '"_Query_"': "_$C(13,10)_$$ParseStatus^vhLib(tmpStatus)
 
+	Set PrintGroepNaamLijst = ##class(%ListOfDataTypes).%New()
 	Set Cnt=0
 	For  Quit:('RS.Next())  Do
 	. Set DateTime=$$GetHumanDate^vhLib(RS.Data("DateTime"))
 	. Set UserId=RS.Data("UserID")
 	. Set UserName=$S(UserId="":"onbekend",1:##class(Res.InternePersoon).GetShortName(UserId))
 	. Do Sender.SetData($I(Cnt),$LB(RS.Data("Msg"),$$FormatNumber^vhLib(".0",RS.Data("NrOfSendings")),$$FormatNumber^vhLib(".0",RS.Data("NrOfPages")),$$FormatNumber^vhLib(".0",RS.Data("NrOfDocs")),DateTime,UserName,RS.Data("lbID")))
-
+	. Do PrintGroepNaamLijst.Insert(RS.Data("Msg"))
+	
 	Quit
 ]]></Implementation>
 </Method>
Index: BL/FOP/Print.cls.xml
===================================================================
diff -u -r29059 -r31832
--- BL/FOP/Print.cls.xml	(.../Print.cls.xml)	(revision 29059)
+++ BL/FOP/Print.cls.xml	(.../Print.cls.xml)	(revision 31832)
@@ -280,6 +280,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetPrintGroupNr">
+<Description>
+===================================================================================================</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PrintGroup:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PrintGroupNr As %String = $P(PrintGroup,"-",4)
+	If $$$Not(PrintGroupNr?1.3N)  Set PrintGroupNr = $P(PrintGroup,"-",5)
+	If $$$Not(PrintGroupNr?1.3N)  Set PrintGroupNr = $P(PrintGroup,"-",6)
+	If $$$Not(PrintGroupNr?1.3N)  Set PrintGroupNr = ""
+	Quit PrintGroupNr
+]]></Implementation>
+</Method>
+
 <Method name="GetPrintGroup">
 <Description>
 ===================================================================================================</Description>