.....
 
      If PrintDialog1.ShowDialog = DialogResult.OK Then
 
'Umstellen des Standard Druckers auf den im Dialog eingestellten Drucker!
            Dim Printer As New PrintDocument
            Dim oWScript As Object = CreateObject("WScript.Network")
            Dim DefPrinter As String = _
              Printer.DefaultPageSettings.PrinterSettings.PrinterName
            Try
                oWScript.SetDefaultPrinter( _
                  PrintDialog1.PrinterSettings.PrinterName)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
'Drucken aller vorhandenen pdfs
            For Each Pfad As String In Pdfs
                Me.ProgressBar_Fortschritt.PerformStep()
                Dim p As New System.Diagnostics.ProcessStartInfo
                p.Verb = "print"
                p.WindowStyle = ProcessWindowStyle.Hidden
                p.FileName = Pfad
                p.UseShellExecute = True
                System.Diagnostics.Process.Start(p)
                Application.DoEvents()
            Next
'Drucken aller vorhandenen Docs
            For Each Pfad As String In WordDocs
                Me.ProgressBar_Fortschritt.PerformStep()
                Dim p As New System.Diagnostics.ProcessStartInfo
                p.Verb = "print"
                p.WindowStyle = ProcessWindowStyle.Hidden
                p.FileName = Pfad
                p.UseShellExecute = True
                System.Diagnostics.Process.Start(p)
                Application.DoEvents()
            Next
'Zurücksetzen auf den Standard Drucker
            Try
                oWScript.SetDefaultPrinter(DefPrinter)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                oWScript = Nothing
            End Try
end if
 
.....