Index: TAOR-rework-bugfixing/TAOR rework/Rework/PrinterBacklogDocMapper.vb
===================================================================
diff -u -r1596 -r1597
--- TAOR-rework-bugfixing/TAOR rework/Rework/PrinterBacklogDocMapper.vb	(.../PrinterBacklogDocMapper.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/Rework/PrinterBacklogDocMapper.vb	(.../PrinterBacklogDocMapper.vb)	(revision 1597)
@@ -1,46 +1,49 @@
 Imports System.IO
-Imports Microsoft.Office.Interop.Word
-Imports Microsoft.Office.Interop
 Imports System.Runtime.InteropServices
+Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop.Word
 
-Module PrinterBacklogDocMapper
-    Public Sub addPrinterBacklogDoc(trayNummer As Integer, text As String, isSpecial As Boolean)
-        Dim bestandsPath As String = Configs.printerBacklogPath
-        Dim trayNummerTekst As String = trayNummer.ToString
-        'vullen met nullen
-        For index = 1 To 4 - trayNummerTekst.Length
-            trayNummerTekst = "0" & trayNummerTekst
-        Next
+Namespace Rework
 
-        Dim bestandsnaam As String = "printer_backlog_" & trayNummerTekst
-        If isSpecial Then
-            bestandsnaam &= "_Special"
-        End If
-        Dim fullPath As String = Path.Combine(bestandsPath, bestandsnaam)
-        Dim oWord As Object
-        Dim oDoc As Object
-        Try
-            oWord = CreateObject("Word.Application")
-            oDoc = New Word.Document
-        Catch ex As Exception
-            Throw New Exception("Print backlog kon niet worden aangemaakt, omdat Word niet is geïnstalleerd")
-        End Try
-        Try
+    Module PrinterBacklogDocMapper
+        Public Sub addPrinterBacklogDoc(trayNummer As Integer, text As String, isSpecial As Boolean)
+            Dim bestandsPath As String = Configs.printerBacklogPath
+            Dim trayNummerTekst As String = trayNummer.ToString
+            'vullen met nullen
+            For index = 1 To 4 - trayNummerTekst.Length
+                trayNummerTekst = "0" & trayNummerTekst
+            Next
 
-            Dim oPara1 As Paragraph = oDoc.Content.Paragraphs.Add
-            oPara1.Range.Font.Name = "Courier New"
-            oPara1.Range.Font.Bold = False
-            oPara1.Range.Font.Size = 13
-            oPara1.Range.Text = text
+            Dim bestandsnaam As String = "printer_backlog_" & trayNummerTekst
+            If isSpecial Then
+                bestandsnaam &= "_Special"
+            End If
+            Dim fullPath As String = Path.Combine(bestandsPath, bestandsnaam)
+            Dim oWord As Object
+            Dim oDoc As Object
+            Try
+                oWord = CreateObject("Word.Application")
+                oDoc = New Word.Document
+            Catch ex As Exception
+                Throw New Exception("Print backlog kon niet worden aangemaakt, omdat Word niet is geïnstalleerd")
+            End Try
+            Try
 
-            oDoc.SaveAs2(fullPath)
-            Dim save_changes As Object = False
-            oDoc.Close(save_changes)
-            oWord.Quit(save_changes)
+                Dim oPara1 As Paragraph = oDoc.Content.Paragraphs.Add
+                oPara1.Range.Font.Name = "Courier New"
+                oPara1.Range.Font.Bold = False
+                oPara1.Range.Font.Size = 13
+                oPara1.Range.Text = text
 
-        Catch ex As Exception
-            Throw New Exception("Print backlog kon niet worden aangemaakt" & vbNewLine & ex.Message)
-        End Try
-    End Sub
+                oDoc.SaveAs2(fullPath)
+                Dim save_changes As Object = False
+                oDoc.Close(save_changes)
+                oWord.Quit(save_changes)
 
-End Module
+            Catch ex As Exception
+                Throw New Exception("Print backlog kon niet worden aangemaakt" & vbNewLine & ex.Message)
+            End Try
+        End Sub
+
+    End Module
+End Namespace
\ No newline at end of file