JPG+PDF zu einer PDF machen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    JPG+PDF zu einer PDF machen

    Hallo zusammen,

    Ich habe folgendes vor

    1. Eine JPG und eine PDF zu einer PDF machen. Die JPG muss aber als erste Seite in der neuen PDF Datei sein.

    2. Mehrere Bilder per Drag & Drop in Pictureboxen ziehen (müsste ich noch hinbekommen) und dann diese Bilder in eine PDF-Datei packen, so dass jedes Bild eine bestimmte Größe (Bsp. 600 x 800) hat und pro Bild eine Seite ist. Die Bilder stammen aus einer e-Mail und sind entweder Anhänge oder direkt als Bild in der Nachricht drin. Ein Missquelle ist auch denkbar. Daher soll der Benutzer diese auf die leeren Pictureboxen ziehen und somit bestimmen, welche Bilder er zusammenfassen möchte.

    Das Ganze sind zwar für zwei verschiedene Projekte, aber das Ziel ist das selbe.

    Wenn es ohne Report geht, um so besser. Irgendein Merge-Funktion oder ähnliches würde mir schon reichen. Der Benutzer soll am Ende möglichst nichts bis ganz wenig tun und es sollte recht schnell gehen, also so max. 10 Sekunden wären super (natürlich abhängig von den Rechner, die sind aber schon recht neu und mit 16 GB Arbeitsspeicher ausgerüstet).

    Könnt Ihr mir da ein paar Starthilfen geben, wie ich da am besten vorgehen sollte/muss. Welche Erweiterungen braucht mein VB Studio 2019 (CrystalReports oder ähnliches). Kostenlose Erweiterungen nehme ich gerne, sofern die nötig sind. Kostenpflichte hängt dann vom Preis ab, sollten aber vorher kostenlos testbar sein.

    Vielen Dank

    Volker

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bungev“ ()

    @bungev Willkommen im Forum. :thumbup:
    Habe ich Dich richtig verstanden?
    Du willst eine Seite mit Bildern in eine PDF drucken.
    Du willst an diese eine Seite (in Form eines PDF) eine andere fertige PDF-Datei dranhängen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo RodFromGermany,

    genau.

    Noch mal etwas weiter ausgeholt.

    Fall 1: Das Ganze läuft so ab: Ich scanne Ablesebelege ein, die werden erkannt, ich korrigiere ggf. einige Felder und kann auch einige Belege zur Nachbearbeitung "markieren". Wenn ich damit fertig bin, bekomme ich eine CSV-Datei in der meine ganzen Ergebnisse drin stehen, diese wird dann in unser System eingespielt. Die gescannten Belege stecken dann in jeweils einer PDF. die das Erkennungsprogramm erzeugt. Die CSV-Datei dann noch mit Excel per Makro eingelesen und für jeden markierten Belege wird über eine Excel Seite ein Deckblatt generiert. Dieser Tabellenbereich speichere ich als JPG zu der PDF dazu ab. Diese JPG dient so zu sagen als Deckblatt für die PDF-Datei. (Läuft somit bis hierher einwandfrei und hier kann und brauche ich auch nichts ändern)

    Normalerweise rufe ich jetzt mein Scanprogramm auf, importiere alle "markierten" Belege und das Scanprogramm zieht schön erst die JPG-Datei und dann die passende PDF Datei. Jeder Beleg besteht nun aus JPG + PDF Datei. Das Ganze kann ich dann kpl. markieren und als e-Mail versenden. Dabei ist jeder Beleg eine PDF-Datei.

    Jetzt habe ich schon für diesen Prozess ein Zusatzprogramm erstellt. Mein Gedanke wäre nun, dass dieses Programm beim Beenden oder per Klick (hier muss ich mir aber noch mal evtl. Gedanken machen) das Erstellen dieser E-Mail - PDF übernimmt und mir auch gleich die e-Mail verschickt (Empfänger ist immer der Selbe).

    Fall 2:

    Wir bekommen von Kunden Bilder per e-Mail geschickt. Diese werden jetzt normaler Weise ausgedruckt und ich scanne diese wieder ein und archiviere diese. Auf diesen Ausdrucken ist jetzt noch ein Barcode, den die Mitarbeiter vorher zuweisen und das System weis somit welcher Barcode wo hin gehört.

    Und ja, diese Methode ist leider für viele die einzeige Möglichkeit, das Bild zu archivieren. Weil abspeichern bzw. als PDF-Drucken und diese dann zuweisen kennen die meisten nicht (oder wollen es auch aus Gewohnheit nicht). Ist leider so.

    Da jetzt aber auch nicht immer nur ein Bild geschickt wird, sondern mehrere, und diese dann auch noch im Text stehen, war halt meine Idee/Versuch, ein Programm zu schreiben, welches einige Pictureboxen bietet, in den der Benutzer die einzelne Bilder ablegen kann (also Drag&Drop).

    Den E-Mail Text könnte man ggf. auch noch markieren und in eine Textbox ziehen. Vielleicht sogar die ganze e-Mail, um dann den gesamten Text als Extraseite mit in die PDF zu nehmen.
    Wenn man die gesamte e-Mail in mein Programm ziehen könnte und dann alle Bilder und den Text extrahieren könnte wäre das natürlich die Ultimative Lösung.

    (Der obere Abschnitt fiel mir gerade beim Schreiben noch ein)

    So, hoffe mal dass mein Problem jetzt deutlicher geworden ist.

    Kurz noch mal zusammengefasst

    1. Existierende JPG (als Deckblatt bzw. 1. Seite in neuer PDF) + fertige PDF = neue PDF-Datei
    2. E-Mail Text + E-Mail Anhänge (Bilder) = neue PDF-Datei (per einzelnen Drag&Drop oder nur die e-Mail ist mir egal (letzteres wäre die Top-Lösung)

    E-Mail Programm ist Outlook 365 Exchange (seit letzter Woche).

    Gruß

    Volker

    @bungev Für den Druck der ersten Seite empfehle ich Dir, den PDF-Drucker als Standarddrucker zu verwenden und einfach ein Blatt auszugeben.
    Drucken mehrseitiger Dokumente
    Sieh Dir das Fein-Tuning im PrintPreviewDialog an, das geht fix und ist sofort verfügbar.
    Zum Mergen von PDFs gibt es mehrere Varianten, ich empfehle Dir PdfSharp, da musst Du mal ein wenig recherchieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo zusammen,

    so, mein erstes Problem habe ich gelöst. Mein Excel-Deckblatt wird über Excel als PDF abgespeichert. Somit habe ich also schon einmal 2 PDF-Dateien.

    Habe zuhause noch eine PDF-Merger (PDFSplitMerge) Lösung gefunden und die hier auch soweit erfolgreich eingebunden, oder auch nicht.

    Gibt es die zusammengeführte Datei nicht, dann kann ich die zusammengeführte PDF auch normal öffnen. Starte ich hingegen das Ganze noch einmal, so klappt die Anzeige nicht mehr. Mein PDF-Anzeigeprogramm sagt mir immer, dass es keine PDF-Datei sei. Merkwürdig, denn ich lösche doch vorher diese Dateien per Kill-Befehl

    Jetzt ist halt die Frage woran dies liegen kann.

    Habe daher mal ein paar MSGBOXen eingebaut um somit das Warten zu simulieren. Leider ohne Erfolg.

    Zum Using-Befehl: Auch hier habe ich mal gelesen. dass hier ein Lesen simuliert wird es erst dann weiter geht, wenn die Datei lesbar ist. Klappt aber auch nicht. (sofern dies überhaupt ein Ansatz gewesen sein kann).

    Jetzt ist halt die Frage: Woran liegt es und was muss ich ändern.

    Hier mal der Code

    VB.NET-Quellcode

    1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    2. Dim pdf As PDFSplitMerge.CPDFSplitMergeObj
    3. Dim Dateien As String
    4. Dim DateiSplit() As String
    5. Dim Ziel As String
    6. Dim OutlookAnhänge As String
    7. Dim NQuelle As String
    8. Dim z As Integer
    10. Timer1.Stop()
    11. ' Evtl. alte Outlook-Anhänge löschen
    12. 'For z = 0 To 100
    13. ' OutlookAnhänge(z) = ""
    14. 'Next
    15. OutlookAnhänge = ""
    17. z = 0 ' für die neuen Outlook-Anhänge
    18. For Each Dir As String In Directory.GetDirectories("C:\Daten\")
    19. ' MessageBox.Show(Dir)
    20. pdf = New CPDFSplitMergeObj
    22. NQuelle = Dir
    24. If NQuelle = "" Then
    25. Exit Sub
    26. Else
    27. Dateien = Dateien_Ermitteln(NQuelle)
    28. ' MsgBox(Dateien)
    29. End If
    30. DateiSplit = Split(Dateien, "|")
    32. Ziel = NQuelle & "\" & Replace(Path.GetFileName(DateiSplit(0)), "0_", "9_")
    34. ' Evtl. alte Zieldatei löschen
    35. Try
    36. Kill(Ziel)
    37. Using fs As New System.IO.FileStream(Ziel, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
    38. End Using
    39. MessageBox.Show("alte Datei gelöscht")
    40. Catch ex As Exception
    41. ' MessageBox.Show(ex.Message)
    42. End Try
    44. 'MsgBox(Ziel)
    46. pdf.Merge(Dateien, Ziel)
    48. Using fs As New System.IO.FileStream(Ziel, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
    50. End Using
    51. 'fs = Nothing
    53. pdf = Nothing
    55. ' Die Outlook-Anhänge festhalten
    56. OutlookAnhänge = OutlookAnhänge & Ziel & "|"
    58. MessageBox.Show("Datei " & Ziel & " erstellt. ")
    60. z = z + 1
    61. Next
    63. Using fs As New System.IO.FileStream(Ziel, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
    64. End Using
    66. MessageBox.Show("Datei " & Ziel & " erstellt. ")
    68. ' letzter | entfernen
    69. OutlookAnhänge = Mid(OutlookAnhänge, 1, Len(OutlookAnhänge) - 1)
    71. ' E-Mail erstellen
    72. Call Outlook_Mail_erzeugen(,, OutlookAnhänge)
    74. End Sub
    76. Public Function Dateien_Ermitteln(Pfad As String, Optional MaxLänge As Integer = 10) As String
    77. Dateien_Ermitteln = ""
    79. For Each items As String In System.IO.Directory.GetFiles(Pfad)
    80. If Len(System.IO.Path.GetExtension(items)) < MaxLänge And InStr(System.IO.Path.GetExtension(items), ".pdf") > 0 Then
    81. If Mid(Pfad, Len(Pfad), 1) <> "\" Then
    82. Dateien_Ermitteln = Dateien_Ermitteln & Pfad & "\" & System.IO.Path.GetFileName(items) & "|"
    83. Else
    84. Dateien_Ermitteln = Dateien_Ermitteln & Pfad & System.IO.Path.GetFileName(items) & "|"
    85. End If
    86. End If
    87. Next
    89. Dateien_Ermitteln = Mid(Dateien_Ermitteln, 1, Len(Dateien_Ermitteln) - 1)
    91. End Function
    93. Public Sub Outlook_Mail_erzeugen(Optional ByVal Betreff As String = "Fehlerhafte Ablesungen",
    94. Optional ByVal Bodytext As String = "",
    95. Optional ByVal Anhang As String = "Datei als Anhang",
    96. Optional ByVal Empfaenger As String = "xx@yyy.de",
    97. Optional ByVal CCEmpfaenger As String = "")
    99. Try
    100. '--- Check ob der Outlook läuft (ab win8 muss das so)
    101. If Process.GetProcessesByName("outlook").Count > 0 Then
    102. '--- Tue nichts, alles fein ---
    103. Else
    104. '--- Outlook starten ---
    105. Process.Start("outlook")
    106. Application.DoEvents()
    107. End If
    109. '--- Objekte des Outlook-Objektmodels initialisieren ---
    110. Dim objOutlook As Object
    111. Dim objOutlookMsg As Object
    112. Const cMailItem = 0
    114. Dim Anhänge() As String
    115. '--- evtl. weitere wichtige, selbsterklärende Konstanten ---
    116. 'Const cBCC = 3
    117. 'Const cImportanceHigh = 1
    118. 'Const cCC = 2
    119. Const cTo = 1
    121. '--- erstellen der notwendigen Objekte ---
    122. objOutlook = CreateObject("Outlook.Application")
    123. objOutlookMsg = objOutlook.CreateItem(cMailItem)
    125. '--- Zusammenbasteln der Mail ---
    126. With objOutlookMsg
    127. Dim objOutlookRecip As Object = .Recipients.Add(Empfaenger)
    128. objOutlookRecip.type = cTo
    129. .Subject = Betreff
    130. .Body = Bodytext
    131. .CC = CCEmpfaenger
    132. If Anhang <> "" Then
    133. Anhänge = Split(Anhang, "|")
    134. For a = 1 To Anhänge.Length - 1
    135. .Attachments.add(Anhänge(a))
    136. Next
    137. End If
    138. '.Importance = olImportanceHigh
    139. .Display() ' Display() zeigt die neue Nachricht, .Send() sendet direkt
    140. End With
    142. '--- Objekte zerstören ---
    143. objOutlookMsg = Nothing
    144. objOutlook = Nothing
    146. Catch ex As Exception
    148. '--- Fehler abfangen falls kein Outlook installiert ist ---
    149. MsgBox(ex.Message.ToString)
    150. '----------------------------------------------------------
    152. End Try
    154. End Sub


    Der Code ist jetzt noch nicht von evtl. Müll befreit. Am Ende soll noch eine e-Mail per Outlook Exchange erstellt werden. Dies klappt auch schon.

    Dabei gibt es aber auch ein Problem. Immer die letzte Datei wird nicht eingefügt ob wohl sie da ist und beim ersten Mal auch geöffnet werden kann.

    Hoffe, mir kann einer von Euch weiterhelfen.

    Gruß

    Volker

    Hallo zusammen,

    habe jetzt die Lösung gefunden.

    1. Ich habe das Löschen der alten zusammengeführten Dateien, das Mergen und das Suchen der Anhänge jeweils in eine For Each-Schleife gepackt.
    2. Das Problem des fehlenden Anhanges war ein Null-basierter Zählerfehler. Zeile 134 musss bei 0 anfangen also For a = 0 To Anhänge.Length - 1. Somit fehlte nicht der letzte, sondern der erste Dateiname

    Warum das nicht in einer Schleife geht, bleibt als Frage dann noch übrig.

    Hier noch einmal der Vollständigkeit halber der Button_Click-Code kpl. und auch bereinigt.

    VB.NET-Quellcode

    1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    2. Dim pdf As PDFSplitMerge.CPDFSplitMergeObj
    3. Dim Dateien As String
    4. Dim DateiSplit() As String
    5. Dim Ziel As String
    6. Dim OutlookAnhänge As String
    7. Dim NQuelle As String
    9. ' Den Zwischenablageüberprüfungstimer stoppen
    10. Timer1.Stop()
    12. ' Hier nun erst einmal evtl. alte zusammengefügte Dateien löschen
    13. For Each Dir As String In Directory.GetDirectories("C:\Daten\")
    14. For Each items As String In System.IO.Directory.GetFiles(Dir)
    15. If InStr(items.ToString, "\9_") > 0 Then
    16. System.IO.File.Delete(items.ToString)
    17. End If
    18. Next
    19. Next
    21. For Each Dir As String In Directory.GetDirectories("C:\Daten\")
    22. pdf = New CPDFSplitMergeObj
    24. NQuelle = Dir
    26. If NQuelle = "" Then
    27. Exit Sub
    28. Else
    29. Dateien = Dateien_Ermitteln(NQuelle)
    30. End If
    31. DateiSplit = Split(Dateien, "|")
    33. Ziel = NQuelle & "\" & Replace(Path.GetFileName(DateiSplit(0)), "0_", "9_")
    35. pdf.Merge(Dateien, Ziel)
    37. pdf = Nothing
    39. Next
    41. 'Anhänge für Outlook ermitteln
    42. OutlookAnhänge = ""
    43. For Each Dir As String In Directory.GetDirectories("C:\Daten\")
    44. For Each items As String In System.IO.Directory.GetFiles(Dir)
    45. If InStr(items.ToString, "\9_") > 0 Then
    46. OutlookAnhänge = OutlookAnhänge & items.ToString & "|"
    47. End If
    48. Next
    49. Next
    51. ' letztes Trennzeichen | entfernen
    52. OutlookAnhänge = Mid(OutlookAnhänge, 1, Len(OutlookAnhänge) - 1)
    54. ' E-Mail erstellen
    55. Call Outlook_Mail_erzeugen(,, OutlookAnhänge)
    57. End Sub


    Gruß

    Volker

Facebook
Telefonspende