Bild vor dem drucken Skalieren / mehre Seiten drucken

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von munsi.

    Bild vor dem drucken Skalieren / mehre Seiten drucken

    Hallo,

    ich habe ein kleines Problem. Ich bin dabei einen kleinen Dateiviewer zu schreiben. Soweit funktioniert auch alles nur leider komme ich mit dem Drucken nicht klar. Ich möchte gern die Bilder auf die volle Größe des Blattes gedruckt haben. Also wenn im Drucker A4 ausgewählt ist soll das Bild auf A4 Größe sklaiert werden. Genauso mit A3. Jetzt wird das Bild leider nur so groß gedruckt wie in der PictureBox angezeigt. Zusätzlich habe ich das Problem das bei mehrseiten Tiff Dateien nur die Seite gedruckt wird die in der PictureBox angezeigt wurde.

    Hier mal der Code den ich schon habe:

    VB.NET-Quellcode

    1. Private Sub cmddrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddrucken.Click
    3. Dim Setupdlg As New PageSetupDialog
    5. With Setupdlg
    6. .PrinterSettings = PrintDocument1.PrinterSettings
    7. .PageSettings = PrintDocument1.DefaultPageSettings
    10. PrintDialog1.Document = PrintDocument1
    11. If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
    12. PrintDocument1.PrinterSettings = .PrinterSettings
    13. PrintDocument1.DefaultPageSettings = .PageSettings
    16. PrintDocument1.Print()
    17. End If
    18. End With
    19. 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. Dim Image As Image = PictureBox1.Image
    25. Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
    26. Dim r As New Rectangle(p.X, p.Y, Image.Width, Image.Height)
    28. gr.DrawImage(Image, r)
    29. gr.Dispose()
    33. End Sub

    Kann mir jemand von euch sagen wie ich das am besten umsetzen kann.?

    Vielen Dank für eure Hilfe.
    Gruß
    Sebastian

    Danke für den Tipp, aber leider bringt der mich nicht weiter. Ich habe diesen bereits in die Picturebox eingbaut. Wie bekomme ich es aber hin das die Seitengröße über den PageSetupDialog automatisch an den Drucker übergeben wird und das Bild auf diese Größe skaliert wird.

    Danke für die Hilfe
    Sebastian

    Hat keiner mehr eine Idee wie ich das Drucken der Grafik umsetzen kann? Wie gesagt das reine Ausdrucken ist kein Problem nur wird die Grafik nur in der Größe der Picturebox angezeigt aber nicht auf die ausgwählte Seitengröße gezoomt.

    Danke für euere Hilfe.

    Weiterhin wird das Bild bei Anpassung der Breite und/oder Höhe interpoliert, damit die Qualität erhalten bleibt.

    So steht es da.
    Damit dürfte es kein Problem sein das Bild zu vergrößern bzw zu verkleinern.

    woran hapert es denn nun ?

    Verstehst du diese Funktion nicht ? Kannst du sie nicht umsetzen ?

    Hilf ins mal weiter.

    Hallo Bernd,

    nochmal danke für deine Hilfe. Also die Funktion nutze ich bereits um ein Bild in einer vorhanden Picturebox zu vergrßern oder zu verkleinern. Wie der Nutzer es wünscht. Aufgrund deines Tips habe ich mir nun gedacht eine zweite Picturebox zu erstellen und ihr automatisch die Größe der Seiteneinstellung zu geben. Leider habe ich dort einen Fehler drin da der Ausdruck immer nur ein leeres Blatt ist. Ich vermute das meine Übergabe der Größe an die Picturebox nicht korrekt ist. Wie kann man die Seiteneinstellungen an eine Picturebox übergeben?

    Hier mal der Quelltext

    VB.NET-Quellcode

    1. Dim pb As New PictureBox
    2. Private Sub cmddrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddrucken.Click
    4. Dim Setupdlg As New PageSetupDialog
    5. ' Seiteneinstellungen festlegen
    6. With Setupdlg
    7. .PrinterSettings = PrintDocument1.PrinterSettings
    8. .PageSettings = PrintDocument1.DefaultPageSettings
    9. If .ShowDialog(Me) = DialogResult.OK Then
    10. .PageSettings.Margins = _
    11. Printing.PrinterUnitConvert.Convert( _
    12. .PageSettings.Margins, _
    13. Printing.PrinterUnit.ThousandthsOfAnInch, _
    14. Printing.PrinterUnit.HundredthsOfAMillimeter)
    15. Dim p As New Point(DefaultMargin.Vertical, DefaultMargin.Horizontal)
    17. 'Bild aus der Picturebox1 in eine neue Picturebox laden und diese auf die Größe des Blattes zoomen
    18. With pb
    19. .Image = PictureBox1.Image
    20. .Location = New Point(12, 12)
    21. .Size = New Size(p.X, p.Y)' hier ist glaube ich der Fehler?
    22. .Image = AutoSizeImage(oBitmap, .ClientRectangle.Width, .ClientRectangle.Height)
    23. End With
    25. PrintDocument1.Print()
    26. End If
    27. End With
    28. End Sub
    30. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    32. Dim gr As Graphics = e.Graphics
    33. Dim Bild As Image = pb.Image
    35. Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
    36. Dim r As New Rectangle(p.X, p.Y, Bild.Width, Bild.Height)
    38. gr.DrawImage(Bild, r)
    39. gr.Dispose()
    42. End Sub


    Sorry wenn der Quellcode etwas kryptisch aussieht :wacko: Bin noch totaler Anfänger.

    Danke und Grüße
    Sebastian

    munsi schrieb:

    Dim pb As New PictureBox

    Vielleicht Kopierst du das Bild direkt in eine Image und nicht in eine PictureBox. Warum den Umweg ?

    VB.NET-Quellcode

    1. Dim Img As Image = ...


    VB.NET-Quellcode

    1. Dim pb As New PictureBox

    munsi schrieb:

    Dim gr As Graphics = e.Graphics
    Dim Bild As Image = pb.Image


    wir ja Deklariert.

    Aber wo weist du pb denn das Image zu ?


    Da ist noch nichts drin.

    Danke für deine Mühe aber ich steh irgendwie auf dem Schlauch.
    Du selbst hattest mir doch den Tip mit der Zoomfunktion der Picturebox gegeben. Das habe ich versucht umzusetzen und daher eine neue Picturebox generiert.

    Bernd schrieb:




    Visual Basic Quellcode

    VB.NET-Quellcode

    1. 1Dim pb As New PictureBox



    Zitat von »munsi«

    VB.NET-Quellcode

    1. Dim gr As Graphics = e.Graphics
    2. Dim Bild As Image = pb.Image

    wir ja Deklariert.

    Aber wo weist du pb denn das Image zu ?
    Da ist noch nichts drin.

    Ich dachte ich weiße hier pb das Image zu

    VB.NET-Quellcode

    1. With pb
    2. .Image = PictureBox1.Image
    3. .Location = New Point(12, 12)
    4. .Size = New Size(pos.X, pos.Y)
    5. .Image = AutoSizeImage(oBitmap, .ClientRectangle.Width, .ClientRectangle.Height)
    6. End With


    Wenn ich die Zeile

    VB.NET-Quellcode

    1. .Size = New Size(pos.X, pos.Y)


    wie folgt anpasse

    VB.NET-Quellcode

    1. .Size = New Size(1024, 720)

    Bekomme ich das Bild ausgedruckt. Aber das ist ja dann nicht dynamisch je nach Größe des ausgewählten Blattes.

    Ich denke ich habe hier zwei Fehler drin

    VB.NET-Quellcode

    1. Private Sub cmddrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddrucken.Click
    3. Dim Setupdlg As New PageSetupDialog
    4. ' Seiteneinstellungen festlegen
    5. With Setupdlg
    6. .PrinterSettings = PrintDocument1.PrinterSettings
    7. .PageSettings = PrintDocument1.DefaultPageSettings
    8. If .ShowDialog(Me) = DialogResult.OK Then
    9. .PageSettings.Margins = _
    10. Printing.PrinterUnitConvert.Convert( _
    11. .PageSettings.Margins, _
    12. Printing.PrinterUnit.ThousandthsOfAnInch, _
    13. Printing.PrinterUnit.HundredthsOfAMillimeter)
    14. Dim pos As New Point(DefaultMargin.Vertical, DefaultMargin.Horizontal) 'Fehler? Dachte das ich hier die Seiteneinstellungen auslese an die Variable pos übergebe?
    16. 'Bild aus der Picturebox1 in eine neue Picturebox laden und diese auf die Größe des Blattes zoomen
    17. With pb
    18. .Image = PictureBox1.Image
    19. .Location = New Point(12, 12)
    20. .Size = New Size(pos.X, pos.Y) 'Fehler2, die Größe der Seiteneinstellungen sollte hier übernommen werden und die Picturebox auf diese Größe angepasst werden
    21. .Image = AutoSizeImage(oBitmap, .ClientRectangle.Width, .ClientRectangle.Height)
    22. End With
    25. PrintDocument1.Print()
    26. End If
    27. End With
    28. End Sub

    Vielleicht ist aber auch der ganze Weg komplett flasch? Wenn ja wie würde man es richtig machen.
    Danke für deine Mühe.

    Hab es hinbekommen. Nach mehrstündiger Suche habe ich eine Seite im Netz gefunden die den Druckvorgang sehr gut beschreibt. Da ich nicht weiß ob das Verlinken erwünscht ist, lasse ich das lieber. Für alle die das gleiche Problem beim Drucken haben hier die Lösung

    Aufruf der Seiteneinstellungen und Auswahl des Druckers
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub cmddrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddrucken.Click
    3. Dim Setupdlg As New PageSetupDialog
    4. ' Bild an Printerdialog weiterleiten um Seiteneinstellungen festzulegen
    5. With Setupdlg
    6. .PrinterSettings = PrintDocument1.PrinterSettings
    7. .PageSettings = PrintDocument1.DefaultPageSettings
    9. If .ShowDialog(Me) = DialogResult.OK Then
    10. ' Hier wird ein Fehler (?!) ausgebügelt: VB .NET
    11. ' konvertiert anscheinend alle Werte von Zoll in
    12. ' Millimeter, da (vermutlich) im englischen Dialog die
    13. ' Werte in Inch eingegeben werden. Allerdings ist der
    14. ' Umrechnungsfaktor nicht genau Zoll:Millimeter,
    15. ' sondern etwas mehr, sodass beim Wert 10 bei erneutem
    16. ' Aufruf 9,9 in der TextBox steht (Umrechnungsfaktor
    17. ' 0,254).
    18. .PageSettings.Margins = _
    19. Printing.PrinterUnitConvert.Convert( _
    20. .PageSettings.Margins, _
    21. Printing.PrinterUnit.ThousandthsOfAnInch, _
    22. Printing.PrinterUnit.HundredthsOfAMillimeter)
    24. PrintDocument1.Print()
    25. End If
    26. End With
    27. End Sub



    Der Druckvorgang
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    4. Dim gr As Graphics = e.Graphics
    5. Dim Bild As Image = oBitmap
    7. 'Größe der Seiteneinstellungen übernehmen
    8. Dim r As Rectangle = e.PageBounds
    9. 'Seitenränder definieren
    10. With r
    11. .X = 0
    12. .Y = 0
    14. End With
    15. Dim charactersOnPage As Integer = 0
    16. Dim linesPerPage As Integer = 0
    18. gr.DrawImage(Bild, r) 'drucke das Bild aus
    19. gr.DrawRectangle(Pens.Blue, r) 'zeichne ein blauches rechteck drumherum
    20. gr.Dispose() ' Inhalt von gr löschen
    23. End Sub



    Gruß
    Sebastian

Facebook
Telefonspende