mehrere Zeichnungen auf eine Seite speichern/drucken

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von neuling.

    mehrere Zeichnungen auf eine Seite speichern/drucken

    Hallo Leute,
    ich möchte gerne mehrere Zeichnungen auf eine Seite abbilden und speichern /ausdrucken.
    Habe folgendes Testprogramm gemacht: Man gibt eine Zahl ein (1,2 oder 3) und je nachdem was für eine Zahl man eingibt erscheint nach dem klicken auf einen Button eine Zeichnung (Polygon.Ellipse...) in einer PicBox. Des weiteren gibt es zwei zusätzliche Knöpfe. Ein Knopt um alle angezeigten Bilder untereinander auf eine Seite angebracht zu speichern. Ein weiterer Knopf um alle gezeichneten Sachen auf einer Seite untereinander angebracht zu drucken.

    Das Problem ist wenn ich meine Zeichnung mit "DrawImage drucke" sehen die Linien verpixelt aus. Deshalb wollte ich wissen ob ich direkt (nicht als DrawImage) die Zeichnung ausdrucken kann.
    Wenn ich z.B einfach ein Rechteck in der Druck/PrintPage Prozedur zeichnen lasse dan wird das Rechteck schön gedruckt (nicht so verpixelt).
    Habe versucht einfach unter "Private Sub Druck..." g=g2 zu definieren und dann mit g.Flush() das auszugeben aber ich glaube das funzt so nicht da ich hier beim Drucken nichts abgedruckt wird. ?(

    VB.NET-Quellcode

    1. Dim bild1 As Bitmap
    2. Dim seite As Bitmap = New Bitmap(500, 500)
    3. Dim grf As Graphics
    4. Dim g2 As Graphics
    5. Dim ft As New Font("Arial", 10)
    6. Dim pinsel As New SolidBrush(Color.Red)
    7. Dim zf As String
    8. Dim abstand As Integer
    10. ...
    12. Private Sub cmdAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeigen.Click
    14. bild1 = New Bitmap(picAnzeige.Width, picAnzeige.Height)
    15. grf = Graphics.FromImage(bild1)
    16. g2 = Graphics.FromImage(seite)
    17. zf = txtEingabe.Text
    19. If zf = "1" Then
    20. loeschen(bild1)
    21. zeichne1(zf)
    22. ElseIf zf = "2" Then
    23. loeschen(bild1)
    24. zeichne2(zf)
    25. ElseIf zf = "3" Then
    26. loeschen(bild1)
    27. zeichne3(zf)
    28. End If
    29. picAnzeige.Image = bild1
    30. End Sub
    32. Public Sub zeichne1(ByVal sfolge As String)
    34. abstand += 100
    35. pinsel.Color = Color.Red
    36. grf.FillRectangle(pinsel, 10, 0, 100, 50)
    37. g2.FillRectangle(pinsel, 10, abstand, 100, 50)
    38. g2.DrawString(zf, ft, Brushes.Black, ((picAnzeige.Width / 2) - ((Len(zf) / 2) * 7)), _
    39. abstand + (picAnzeige.Height / 2) + 2)
    40. End Sub
    42. ...
    44. Public Sub zeichne2...
    45. Public Sub zeichne3...
    47. Private Sub cmdSpeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSpeichern.Click
    48. Dim img2 As Image = seite
    49. g2 = Graphics.FromImage(seite)
    50. img2.Save(Application.StartupPath & "/test1.emf", System.Drawing.Imaging.ImageFormat.Emf)
    52. End Sub
    54. ...
    57. Private Sub Druck(ByVal sender As Object, ByVal e As PrintPageEventArgs) _
    58. Handles doc.PrintPage
    60. Dim g As Graphics = e.Graphics
    61. g.DrawImage(seite, 0, 0) 'als bild druckbar
    63. End Sub

    Danke für die Antwort.
    Wenn ich versuche in zeichne2 folgendes zu zeichnen

    VB.NET-Quellcode

    1. pinsel.Color = Color.White
    2. g.FillRectangle(pinsel, 110, 10, 1, 50)
    3. pinsel.Color = Color.Black
    4. g.FillRectangle(pinsel, 111, 10, 1, 50)
    5. pinsel.Color = Color.White
    6. g.FillRectangle(pinsel, 112, 10, 1, 50)
    7. g.FillRectangle(pinsel, 113, 10, 1, 50)
    8. pinsel.Color = Color.Black
    9. g.FillRectangle(pinsel, 114, 10, 1, 50)


    und es auszudrucken macht es bei mir keinen Unterschied ob ich mit oder ohne smooth mache ?(
    Ich habe

    VB.NET-Quellcode

    1. g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    2. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

    verwendet aber wie gesagt das hat bei mir keinen Unterschied gemacht (Laserdrucker).
    Gibt es ne Möglichkeit meine Zeichnung auf einer "virtuellen Zeichenfläche" zu machen und dann für das Speichern einfach die "virtuellen Zeichenfläche" als image speichern und fürs Drucken, dem Drucker die "virtuellen Zeichenfläche" übergeben ?

    VB.NET-Quellcode

    1. Dim g As Graphics = e.Graphics
    2. g="virtuelle Zeichenfläche"
    3. g.neuzeichnen


    Kanns leider net so gut erklären :)
    (meine Notlösung ist die Eingabe vom user zu speichern und dann beim drucken alles nochmal zeichnen zu lassen -> von hinten durch die Brust ins Auge :D )

Facebook
Telefonspende