neu

Aviso/frmLaufzettel.vb

@@ -48,44 +48,44 @@ Public Class frmLaufzettel
         Me.jeVP = jeVP
     End Sub
 
-    Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
-        ' alle installierten Drucker ermitteln und 
-        ' in in ein ArrayList-Objekt speichern
-        Dim sPrinters As New ArrayList
-        For Each sPrinter As String In PrinterSettings.InstalledPrinters
-            sPrinters.Add(sPrinter)
-        Next
+    'Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
+    '    ' alle installierten Drucker ermitteln und 
+    '    ' in in ein ArrayList-Objekt speichern
+    '    Dim sPrinters As New ArrayList
+    '    For Each sPrinter As String In PrinterSettings.InstalledPrinters
+    '        sPrinters.Add(sPrinter)
+    '    Next
 
-        ' Array sortieren
-        sPrinters.Sort()
+    '    ' Array sortieren
+    '    sPrinters.Sort()
 
-        ' jetzt alle Drucker in sortierter Reihenfolge in einer
-        ' ComboBox zur Auswahl anbieten
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
-        For i As Integer = 0 To sPrinters.Count - 1
-            cboPrinter.Items.Add(sPrinters(i))
-        Next
+    '    ' jetzt alle Drucker in sortierter Reihenfolge in einer
+    '    ' ComboBox zur Auswahl anbieten
+    '    Dim oPS As New System.Drawing.Printing.PrinterSettings
+    '    For i As Integer = 0 To sPrinters.Count - 1
+    '        cboPrinter.Items.Add(sPrinters(i))
+    '    Next
 
 
-        If sPrinters.Count > 0 Then
-            cboPrinter.SelectedIndex = 0
-            If srch <> "" Then
-                For Each i In cboPrinter.Items
-                    If i.ToString.ToUpper.Contains(srch.ToUpper) Then
-                        cboPrinter.SelectedItem = i
-                        Exit Sub
-                    End If
-                Next
-            Else
-                For Each i In cboPrinter.Items
-                    If i.ToString = oPS.PrinterName Then
-                        cboPrinter.SelectedItem = i
-                        Exit Sub
-                    End If
-                Next
-            End If
-        End If
-    End Sub
+    '    If sPrinters.Count > 0 Then
+    '        cboPrinter.SelectedIndex = 0
+    '        If srch <> "" Then
+    '            For Each i In cboPrinter.Items
+    '                If i.ToString.ToUpper.Contains(srch.ToUpper) Then
+    '                    cboPrinter.SelectedItem = i
+    '                    Exit Sub
+    '                End If
+    '            Next
+    '        Else
+    '            For Each i In cboPrinter.Items
+    '                If i.ToString = oPS.PrinterName Then
+    '                    cboPrinter.SelectedItem = i
+    '                    Exit Sub
+    '                End If
+    '            Next
+    '        End If
+    '    End If
+    'End Sub
 
 
     Sub initLZ()
@@ -150,7 +150,7 @@ Public Class frmLaufzettel
     End Sub
 
     Private Sub frmLaufzettel_Load(sender As Object, e As EventArgs) Handles Me.Load
-        initDrucker(cboPrinter)
+        SDL.cProgramFunctions.initDrucker(cboPrinter)
 
         If DIGITAL Then
             cbxDigitalLZ.Enabled = True
@@ -537,4 +537,26 @@ Public Class frmLaufzettel
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         printzZAnlagen()
     End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            AVISO.LOAD_Vorpapiere()
+            Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
+
+            Dim paths As New List(Of String)
+            If Not genLZ(paths, False, VP_Enum) Then
+                Exit Sub
+            End If
+
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, paths.ToArray)
+            Clipboard.SetDataObject(d, True)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, )
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class