neu

Gemeinsames/rptSendungen.vb

@@ -12,13 +12,14 @@ Public Class rptSendungen
 
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
-
+        Me.Document.Printer.PrinterName = ""
         ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
 
     Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
         InitializeComponent()
+        Me.Document.Printer.PrinterName = ""
         Me.VALUES = VALUES
         Me.imgPath = imgPath
         Me.ZOLLANMELDUNG = ZOLLANMELDUNG
@@ -216,7 +217,7 @@ Public Class rptSendungen
     End Sub
 
     Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
-
+        Me.Document.Printer.PrinterName = ""
     End Sub
 End Class