diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 7f70e15..ed0a218 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.5.9")>
-<Assembly: AssemblyFileVersion("4.2.5.9")>
+<Assembly: AssemblyVersion("4.2.6.0")>
+<Assembly: AssemblyFileVersion("4.2.6.0")>
diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index e70d3a1..5484d2a 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -3717,23 +3717,30 @@ Public Class usrcntlAktDetails
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click
-        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+        Try
 
-        If dgvSendungen.SelectedRows.Count > 0 Then
-            SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
-        End If
+            Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
 
-        Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
-        Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
-        If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
-        If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+            If dgvSendungen.SelectedRows.Count > 0 Then
+                SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+            End If
 
+            Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
+            Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
+            If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
+            If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
 
-        If sender Is Button8 OrElse printer = "" Then
-            SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
-        Else
-            SDL.cProgramFunctions.printRpt(rpt, printer, True)
-        End If
+            rpt.Document.Printer.PaperKind = Printing.PaperKind.Custom
+
+            If sender Is Button8 OrElse printer = "" Then
+                SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+            Else
+                SDL.cProgramFunctions.printRpt(rpt, printer, True)
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
 
     End Sub