Bild drucken über eDocPrinter aber ohne Speichern unter - Abfrage

  • VB.NET

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

    Bild drucken über eDocPrinter aber ohne Speichern unter - Abfrage

    Hallo zusammen,

    ich möchte eine Bilddatei (JPG, BMP, PNG usw.) über eine Picturebox drucken und automatisch als PDF abspeichern lassen.

    Grundsätzlich läuft auch schon alles wie gewünscht.

    Das Einzige was mich jetzt noch stört ist die Dialogabfrage beim Speichern.

    Hier mal mein bisheriger Code

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    3. TBox_Bildpfad.Text = "C:\Kalender 2019.bmp"
    4. 'PBox_Bilddrucken.Image = Image.FromFile("C:\Temp\Outlook\03_ Lupe.png")
    5. 'PBox_Bilddrucken.Image = Image.FromFile("C:\Temp\Outlook\05_ Download.jpg")
    6. 'PBox_Bilddrucken.Image = Image.FromFile("C:\Temp\Outlook\04_ Bild1.png")
    7. PBox_Bilddrucken.Image = Image.FromFile(TBox_Bildpfad.Text)
    9. PrintDocument1.DocumentName = "C:\Temp\Outlook\Test.pdf"
    10. PrintDocument1.Print()
    11. 'PBox_Bilddrucken.Image.Save("C:\Temp\Outlook\Test.pdf")
    12. End Sub
    13. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    14. Dim gr As Graphics = e.Graphics
    15. ' Verweis auf das Bild festlegen
    16. Dim oImage As Image = PBox_Bilddrucken.Image
    17. ' Rechteck für den Ausdruck festlegen
    18. ' Position + Originalgröße
    19. Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
    21. ' Hier nun das Bild in der Originalgröße oder der maximalen Breite anzeigen lasssen bzw. drucken
    22. Dim hDC As Long
    24. 'Die log. Pixels pro Zoll für den Bildschirm werden ermittelt:
    25. 'hDC = CreateICA("DISPLAY", "", "", 0&)
    26. DPI_Breite = 92 'GetDeviceCaps(hDC, LOGPIXELSX)
    27. DPI_Höhe = 92 'GetDeviceCaps(hDC, LOGPIXELSY)
    28. 'DeleteDC hDC
    30. 'Die Breite/Höhe des Bildschirm-Fensters (in Pixeln) wird ermittelt:
    31. Bildschirmbreite = 1920 ' GetSystemMetrics&(SM_CXSCREEN)
    32. Bildschirmhöhe = 1080 ' GetSystemMetrics&(SM_CYSCREEN)
    34. Dim BreiteinCM As Double
    35. Dim HöheinCM As Double
    36. BreiteinCM = 21
    37. HöheinCM = 29.7
    39. BildBreitePixel = Bildergroesse(TBox_Bildpfad.Text, Bildgroesse_ENUM.Breite)
    40. BildHöhePixel = Bildergroesse(TBox_Bildpfad.Text, Bildgroesse_ENUM.Höhe)
    42. PBox_Bilddrucken.Height = DPI_Höhe * HöheinCM / 2.54
    43. PBox_Bilddrucken.Width = DPI_Breite * BreiteinCM / 2.54
    45. BreiteinCM = 19
    46. ' Höhe proportional anpassen
    47. HöheinCM = (BildHöhePixel / BildBreitePixel) * BreiteinCM
    48. PBox_Bilddrucken.Top = 10
    49. PBox_Bilddrucken.Left = 10
    51. ' Prüfen, ob die Pixel das DIN A4 Format übersteigen, wenn ja, das Bild proportional auf das max. verkleinern
    52. If BildHöhePixel > Fix(72 * HöheinCM / 2.54) Or BildBreitePixel > Fix(72 * BreiteinCM / 2.54) Then
    53. 'PBox_Bilddrucken.Height = Fix(72 * HöheinCM / 2.54)
    54. BildHöhePixel = Fix(72 * HöheinCM / 2.54)
    55. ' PBox_Bilddrucken.Width = Fix(72 * BreiteinCM / 2.54)
    56. BildBreitePixel = Fix(72 * BreiteinCM / 2.54)
    57. Else
    58. ' andernfalls, Originalbreite und -höhe einstellen
    59. PBox_Bilddrucken.Height = BildHöhePixel
    60. PBox_Bilddrucken.Width = BildBreitePixel
    61. End If
    63. ' Ein paar Infos zu dem Bild abspeichern
    64. e.Graphics.DrawString("E-Mail Absender: " & RBox_Absender.Text & vbCrLf & "Betreff: " & RBox_Betreff.Text & vbCrLf & "Datum: " & Lbl_DatumUhrzeit.Text & vbCrLf & "Dateiname: " & System.IO.Path.GetFileName(TBox_Bildpfad.Text), New Font("Arial", 12), Brushes.Black, New Point(10, 15))
    66. 'Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
    67. Dim r As New Rectangle(10, 120, BildBreitePixel, BildHöhePixel)
    68. ' Bild drucken im angegebenen Rechteck drucken
    69. gr.DrawImage(oImage, r)
    70. 'gr.Dispose()
    72. ' Picturebox wieder klein machen
    73. PBox_Bilddrucken.Top = 76
    74. PBox_Bilddrucken.Left = 300
    75. PBox_Bilddrucken.Width = 156
    76. PBox_Bilddrucken.Height = 127
    77. End Sub


    (Das Umstellen auf den eDoc-Printer fehlt hier zwar noch, stellt aber kein Problem dar)

    Gruß

    Volker

    @Volker Bunge Was soll er tun?
    Was tut er?
    Was tut er nicht?
    Überprüfe, ob der gepostete Code Deinen Effekt vollständig reproduziert,
    vermeide dabei, dass wir wiederholt nachfragen müssen.
    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!

    @Volker Bunge: Stell über PrintDocument1.PrinterSettings.PrinterName den Namen eines PDF-Druckers ein und dann noch PrintDocument1.PrintToFile = True. So mach ich es und so klappt es bei mir.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo RodFromGermany,

    vielen Dank für die schnelle Antwort, aber die habe ich kpl. nicht verstanden, sorry.

    Der Code macht grundsätzlich dass, was er tun soll. Das einzige was mich halt stört ist, dass der Benutzer die Speichern-Unter-Abfrage bestätigen muss.

    Leider sind solche Antworten nicht gerade hilfreich.

    Hallo VaporiZed,vielen Dank für die schnelle Antwort.

    VB.NET-Quellcode

    1. PrintDocument1.PrinterSettings.PrinterName = "eDocPrinter PDF Pro"
    2. PrintDocument1.DocumentName = Dateiname
    3. PrintDocument1.PrintToFile = True
    4. PrintDocument1.Print()


    Leider sagt er mit bei PrintToFile das es kein Member von Printdocument ist.

    Gruß

    Volker
    Bilder

    • Bild1.png

      7,21 kB, 538×115, 55 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Volker Bunge“ ()

    Volker Bunge schrieb:

    Leider sind solche Antworten nicht gerade hilfreich.
    Kopiere Deinen Code in ein neues leeres Projekt und starte es.
    Ich freue mich, dass Du keine Probleme mehr hast.
    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!

    @Volker Bunge: Nee, ist auch Teil von PrinterSettings, nicht vom PrintDocument
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo RodFromGermany,

    habe jetzt Deine Antwort verstanden. Da fehlte tatsächlich noch etwas. Sorry.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Enum Bildgroesse_ENUM
    3. Höhe = 1
    4. Breite = 2
    5. End Enum
    7. Public Bildschirmbreite As Long, Bildschirmhöhe As Long
    8. Public DPI_Breite As Long, DPI_Höhe As Long
    10. Public BildBreitePixel As Long
    11. Public BildHöhePixel As Long
    12. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    13. PBox_Bilddrucken.Text = "C:\Kalender 2019.bmp"
    14. PBox_Bilddrucken.Image = Image.FromFile(PBox_Bilddrucken.Text)
    15. PrintDocument1.DocumentName = "C:\Temp\Outlook\Test.pdf"
    16. PrintDocument1.PrinterSettings.PrinterName = "eDocPrinter PDF Pro"
    17. PrintDocument1.PrinterSettings.PrintToFile = True
    18. PrintDocument1.Print()
    19. 'PBox_Bilddrucken.Image.Save("C:\Temp\Outlook\Test.pdf")
    20. End Sub
    21. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    22. Dim gr As Graphics = e.Graphics
    24. ' Verweis auf das Bild festlegen
    25. Dim oImage As Image = PBox_Bilddrucken.Image
    27. ' Position + Originalgröße
    28. Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
    29. DPI_Breite = 92 'GetDeviceCaps(hDC, LOGPIXELSX)
    30. DPI_Höhe = 92 'GetDeviceCaps(hDC, LOGPIXELSY)
    32. 'Die Breite/Höhe des Bildschirm-Fensters (in Pixeln) wird ermittelt:
    33. Bildschirmbreite = 1920 ' GetSystemMetrics&(SM_CXSCREEN)
    34. Bildschirmhöhe = 1080 ' GetSystemMetrics&(SM_CYSCREEN)
    35. Dim BreiteinCM As Double
    36. Dim HöheinCM As Double
    37. BreiteinCM = 21
    38. HöheinCM = 29.7
    39. BildBreitePixel = Bildergroesse(PBox_Bilddrucken.Text, Bildgroesse_ENUM.Breite)
    40. BildHöhePixel = Bildergroesse(PBox_Bilddrucken.Text, Bildgroesse_ENUM.Höhe)
    41. PBox_Bilddrucken.Height = DPI_Höhe * HöheinCM / 2.54
    42. PBox_Bilddrucken.Width = DPI_Breite * BreiteinCM / 2.54
    43. BreiteinCM = 19
    45. ' Höhe proportional anpassen
    46. HöheinCM = (BildHöhePixel / BildBreitePixel) * BreiteinCM
    47. PBox_Bilddrucken.Top = 10
    48. PBox_Bilddrucken.Left = 10
    50. ' Prüfen, ob die Pixel das DIN A4 Format übersteigen, wenn ja, das Bild proportional auf das max. verkleinern
    51. If BildHöhePixel > Fix(72 * HöheinCM / 2.54) Or BildBreitePixel > Fix(72 * BreiteinCM / 2.54) Then
    52. 'PBox_Bilddrucken.Height = Fix(72 * HöheinCM / 2.54)
    53. BildHöhePixel = Fix(72 * HöheinCM / 2.54)
    54. ' PBox_Bilddrucken.Width = Fix(72 * BreiteinCM / 2.54)
    55. BildBreitePixel = Fix(72 * BreiteinCM / 2.54)
    56. Else
    57. ' andernfalls, Originalbreite und -höhe einstellen
    58. PBox_Bilddrucken.Height = BildHöhePixel
    59. PBox_Bilddrucken.Width = BildBreitePixel
    60. End If
    62. ' Ein paar Infos zu dem Bild abspeichern
    63. ' e.Graphics.DrawString("E-Mail Absender: " & RBox_Absender.Text & vbCrLf & "Betreff: " & RBox_Betreff.Text & vbCrLf & "Datum: " & Lbl_DatumUhrzeit.Text & vbCrLf & "Dateiname: " & System.IO.Path.GetFileName(PBox_Bilddrucken.Text), New Font("Arial", 12), Brushes.Black, New Point(10, 15))
    64. 'Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
    65. Dim r As New Rectangle(10, 120, BildBreitePixel, BildHöhePixel)
    67. ' Bild drucken im angegebenen Rechteck drucken
    68. gr.DrawImage(oImage, r)
    69. ' Picturebox wieder klein machen
    70. PBox_Bilddrucken.Top = 76
    71. PBox_Bilddrucken.Left = 300
    72. PBox_Bilddrucken.Width = 156
    73. PBox_Bilddrucken.Height = 127
    75. End Sub
    76. Public Function Bildergroesse(FilePath As String, Rueckgabewert As Bildgroesse_ENUM)
    77. Dim bmp As New Bitmap(FilePath)
    78. If Rueckgabewert = 1 Then
    79. Return bmp.Height
    80. Else
    81. Return bmp.Width
    82. End If
    83. End Function
    84. End Class


    Habe leider gedacht, dass die Profis schon anhand meines ersten Codes erkennen, wo der Fehler liegt. Der o. g. Code ist jetzt aber soweit vollständig, dass er funktioniert. (Die Controlls und das Anpassen der Pfade muss natürlich noch gemacht werden)

    Frage: Oder muss ich erst den eDoc-Printer erst irgendwie einstellen, so dass die Abfrage nicht mehr kommt?

    Gruß

    Volker

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Volker Bunge“ ()

    @Volker Bunge Nachdem ich Option Strict On gemacht und eine Klasse für PBox_Bilddrucken angelegt habe, hat der Code sofort richtig funktioniert.
    Anmerkung zum individuellen PDF-Drucker:
    in .DocumentName habe ich nur den Dokument-Namen stehen, nicht aber den Pfad, den hat er bei mir vom letzten Bild genommen und im Save-Dialog angeboten.
    Dieser Dialog ist aber abhängig vom PDF-Printer und bei mit nicht per Property vorgebbar.
    Wie das bei andern Treibern läuft, muss individuell aufgeklärt werden.
    Möglicherweise kann man da die Werte von Properties über deren Namen setzen.
    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,

    vielen Dank für die Infos.

    Die Klasse für PBox_Bilddrucken: Wo für hast Du die angelegt? Der Name war für ein Picturebox-Control.

    Also muss ich jetzt über Registry o. ä. versuchen, den eDoc-Dialog zu steuern. Werde nach her mal etwas googeln.

    Hat jemand anderes von Euch gff. eine Lösung hier für?

    Gruß

    Volker

    Volker Bunge schrieb:

    Der Name war für ein Picturebox-Control.
    Wegen der Property .Text.
    Ansonsten OK.
    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!

    Da jetzt noch keine Reaktion auf meine Posts kam, stellt sich die Frage, wie da Dein Versuchsergebnis dazu ist.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo VaporiZed,

    sorry, das ich mich erst jetzt bei Dir melde.

    Die PrintDocument1.PrinterSettings.PrintToFile = True war so jetzt richtig.

    Leider muss ich mich jetzt auf eine anderen Lösungweg machen, da wohl die Save-Abfrage so nicht umgangen bzw. automatisiert werden kann.

    Solltest Du eine Lösung haben, wäre ich um jeden Tipp dankbar.

    Gruß
    Volker

    Hattest Du auch für PrintDocument1.PrinterSettings.PrintFileName einen Zieldateipfad eingestellt?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo VaporiZed,

    habe eine Lösung gefunden. Die ganzen Printdocument-Einstellungen sind dabei so gut wie nicht nötig (hoffe ich doch mal).

    Schon einmal soviel vorab: Man muss/kann über die Registry-Einträge alles beim eDoc-Printer steuern.

    Werde die aber noch mal so fertig machen, dass sie auch funktioniert. Danach werde ich sie hier einstellen.

    Gruß

    Volker

    Hallo zusammen,

    so, habe jetzt das mit dem Bilderdrucken in eine PDF hinbekommen.

    Das Ganze funktioniert sogar sehr schnell.

    Voraussetzung: eDoc Printer Pro muss installiert sein.

    Damit Ihr alle was davon habt, packe ich mal das Projekt hier als RAR-Datei rein.

    Die Richtextboxen habe ich nur schon einmal reingepackt, damit der Text über dem Bild schon einmal steht.

    Es ist noch ein paar Optimierungen vorzunehmen, aber da dies ja nur ein Teil meines gesamten Projektes ist, habe ich hier drauf verzichtet.

    Genau so könnte man auch noch ein paar andere Einstellungen für eDoc-Printer vornehmen lassen, aber dass kann jetzt hoffentlich jeder selbst noch für sein Projekt nachholen.

    Was ich noch eingestellt habe ist "Option Strict on".

    Was mich persönlich noch interessieren würde ist die Frage, ob man die Höhe und Breite des Textes irgendwie begrenzen kann bzw. die Höhe abfragen kann. Grund ist einmal, dass ich über die Höhe die obere Position immer mit dem gleichen Abstand versehen könnte, egal was in dem Text drin steht und die Breite natürlich so begrenzen könnte, dass der Text bei keinem Seitenformat über den rechten Rand hinausragen würde. Aber das ist ehr nur eine Kleinigkeit.

    Hoffe, dass jeder das Projekt öffnen und nutzen kann und die Erklärungen im Code ausreichen, um es zu verstehen bzw. Veränderungen vornehmen zu können.

    Gruß
    Volker

    P.S. Ob die Anzeige der PDF - Datei auch mit jeden PDF-Anzeigeprogramm funktioniert, wäre hier noch zu klären. Ich benutze PDF-XChange Viewer. Damit klappt es auf jeden Fall. Sollte es mal nicht klappen, so wäre ich über eine Lösung dankbar, dann kann man das dort noch einbauen.

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

Facebook
Telefonspende