Index: TAOR rework/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r2174 -r2410
--- TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 2174)
+++ TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 2410)
@@ -1,5 +1,4 @@
-Imports System.Globalization
-Imports System.IO
+Imports System.IO
 
 Public Module Configs
 
@@ -28,6 +27,7 @@
                 laadOnderdelen()
                 laadArdisPath()
                 laadBartenderConfigs()
+                laadEtiketPrinterNaam()
                 laadPrinterBacklogPath()
                 laadHelpPDFPath()
                 laadOnderdelenKleuren()
@@ -218,7 +218,33 @@
         End Set
     End Property
 
+#End Region
 
+#Region "Etiket printer"
+
+    Private _etiketPrinterNaam As String
+
+    Private Sub laadEtiketPrinterNaam()
+
+        For teller As Integer = 0 To _algemeneConfigs.Count - 1
+            Dim lijn As String = _algemeneConfigs(teller)
+
+            If lijn.ToLower.StartsWith("etiketprinter") Then
+                _etiketPrinterNaam = lijn.Replace("etiketprinter", "").Replace("ETIKETPRINTER", "").Trim
+                _algemeneConfigs.RemoveAt(teller)
+                Exit For
+            End If
+        Next
+
+        If _etiketPrinterNaam Is Nothing OrElse _etiketPrinterNaam.Equals("") Then
+            Throw New Exception("EtiketPrinter is niet geconfigureerd.")
+        End If
+    End Sub
+
+    Public Function geefEtiketPrinterNaam() As String
+        Return _etiketPrinterNaam
+    End Function
+
 #End Region
 
 #Region "printerbacklog locatie"
@@ -368,8 +394,8 @@
     'OorsprongID
     Private Sub LaadOorsprongIdAliassen()
         Try
-            for each item in New OorsprongIdAliasMapperXML(New XmlMapper).GetData(Of List(of String()))()
-                _oorsprongIdAliassen.Add(item(0),item(1))
+            For Each item In New OorsprongIdAliasMapperXML(New XmlMapper).GetData(Of List(Of String()))()
+                _oorsprongIdAliassen.Add(item(0), item(1))
             Next
         Catch ex As Exception
             Throw New Exception($"Kon oorsprong aliassen niet ophalen{vbNewLine}{ex.Message}")
Index: TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb
===================================================================
diff -u -r1900 -r2410
--- TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb	(.../FormReworkTrayPrinter.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb	(.../FormReworkTrayPrinter.vb)	(revision 2410)
@@ -1,5 +1,5 @@
-Imports System.Text
-Imports TA_OR_rework.Rework
+Imports System.Drawing.Printing
+Imports System.Text
 
 Public Class FormReworkTrayPrinter
     Private _aantalTrays As Integer
@@ -28,6 +28,41 @@
     End Sub
 
     Private Sub FormReworkTrayPrinter_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        Try
+            Dim availablePrinters As New List(Of String)
+            For Each printer As String In PrinterSettings.InstalledPrinters
+                availablePrinters.Add(printer)
+            Next
+
+            Dim message As String = "Printers beschikbaar op dit systeem: " & String.Join(", ", availablePrinters)
+            LogBestandTextMapper.WriteToFile("Printer", message, False)
+
+            Dim defaultPrinter As String = Configs.geefEtiketPrinterNaam()
+
+            If Not availablePrinters.Contains(defaultPrinter) Then
+                MessageBox.Show("De ingestelde printer '" & defaultPrinter & "' is niet gevonden." & vbCrLf & "Selecteer de printer om op af te drukken.",
+                            "Selecteer printer", MessageBoxButtons.OK, MessageBoxIcon.Information)
+
+                Dim dlg As New PrintDialog()
+                dlg.Document = PrintDocument
+                If dlg.ShowDialog() = DialogResult.OK Then
+                    PrintDocument.PrinterSettings = dlg.PrinterSettings
+                    message = "Printer geselecteerd door de gebruiker: '" & PrintDocument.PrinterSettings.PrinterName & "'."
+                    LogBestandTextMapper.WriteToFile("Printer", message, False)
+                Else
+                    ' User cancelled dialog
+                    message = "Printopdracht geannuleerd door de gebruiker: geen printer geselecteerd."
+                    LogBestandTextMapper.WriteToFile("Printer", message, False)
+                    MessageBox.Show("Geen printer geselecteerd, rework gaat niet door.", "Geannuleerd", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                    gaVerder()
+                End If
+            End If
+
+
+        Catch ex As Exception
+            MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+
         'zorgen dat form niet kan gesloten worden
         Me.ControlBox = False
 
@@ -48,6 +83,7 @@
         Catch ex As Exception
             MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
+
     End Sub
 
     Private Sub Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Timer.Tick
@@ -145,7 +181,9 @@
                     'printen van document met default printer van de pc
                     'alle trays overlopen
                     For _nummerTray = 1 To _aantalTrays
+                        Debug.WriteLine("Attempting to print to: " & PrintDocument.PrinterSettings.PrinterName)
                         PrintDocument.Print()
+                        LogBestandTextMapper.WriteToFile("Printer", "Printopdracht gestuurd naar printer '" & PrintDocument.PrinterSettings.PrinterName & "'.", True)
                     Next
                 End If
                 gaVerder()
Index: TAOR rework/TAOR rework/Configuraties/config text mappers/ConfigsTextMapper.vb
===================================================================
diff -u -r1513 -r2410
--- TAOR rework/TAOR rework/Configuraties/config text mappers/ConfigsTextMapper.vb	(.../ConfigsTextMapper.vb)	(revision 1513)
+++ TAOR rework/TAOR rework/Configuraties/config text mappers/ConfigsTextMapper.vb	(.../ConfigsTextMapper.vb)	(revision 2410)
@@ -67,6 +67,11 @@
         file.WriteLine("%VOORBEELD")
         file.WriteLine("%PRINTER Tigerstop | Tigerstop")
         file.WriteLine()
+        file.WriteLine("%ETIKETPRINTER, INSTELLEN WINDOWS PRINTER")
+        file.WriteLine("%Naam van Printer volgens Windows")
+        file.WriteLine("%VOORBEELD")
+        file.WriteLine("%ETIKETPRINTER Microsoft Print to PDF")
+        file.WriteLine()
         file.WriteLine("%BACKLOGPATHPRINTER CONFIG, voor kiezen van de folder waar de bestanden die afgedrukt worden naar worden gebackupped")
         file.WriteLine("%VOORBEELD")
         file.WriteLine("%BACKLOGPATHPRINTER \\NOTES01\Shared\Multi media\TAOR rework\Printer_backlog")