20200108

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -192,7 +192,8 @@ Public Class cDATENSERVER
     Public Function replaceInvalidCahr(ByRef s)
         s = s.replace("İ", "I")
         s = s.replace("ı", "i")
-
+        s = s.replace("€", "E")
+        s = s.replace(",", ".")
 
 
         Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
@@ -1060,7 +1061,6 @@ Public Class cFormularManager
             End If
             'Dim docs As Spire.Pdf.PdfDocument()            = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}
 
-            'For Each doc As Spire.Pdf.PdfDocument In docs
             For Each pdfPath In PDFFile
                 Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
 
@@ -1071,10 +1071,48 @@ Public Class cFormularManager
                 doc.PrintDocument.Print()
             Next
 
+
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+
+    Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "")
+        Try
+            If printerName = "" Then
+                Dim oPS As New System.Drawing.Printing.PrinterSettings
+                printerName = oPS.PrinterName
+            End If
+            'Dim docs As Spire.Pdf.PdfDocument()            = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}
+
+
+
+
+
+
+
+            For Each pdfPath In File
+
+                Dim printer As PrintDocument = New PrintDocument
+                AddHandler printer.PrintPage, Sub(snd As Object, ev As PrintPageEventArgs)
+                                                  Dim img As Image = Image.FromFile(pdfPath)
+                                                  ev.Graphics.DrawImage(img, ev.PageBounds)
+                                              End Sub
+                '  printer.PrinterSettings.DefaultPageSettings.PrintableArea.
+                printer.Print()
+                'Dim PrintDocument1 As PrintDocument = New PrintDocument
+                'PrintDocument1.DocumentName = pdfPath
+                ''PrintDialog1.Document = PrintDocument1
+                ''PrintDocument1.PrinterSettings.
+                'PrintDocument1.Print()
+
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
     Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "")
         Try
             If printerName = "" Then

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb

@@ -24,6 +24,7 @@
         txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", ""))
         txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
         txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         txtUnterordner2.SelectedIndex = 0
     End Sub
 End Class