Mehrere Charts auf ein A4 Blatt drucken.

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Hallo

    So nach langem tüfteln bin ich soweit gekommen. Es wird zwar immer als letztes ein leerBlatt ausgegeben aber das ist noch verschmerzbar ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub PrintChart(sender As Object, e As Printing.PrintPageEventArgs)
    2. ' Initialize variables
    3. Static currentPageIndex As Integer = 0
    4. Dim yPos As Single = e.MarginBounds.Top
    5. Dim chartWidth As Integer = CInt(e.PageSettings.PrintableArea.Width)
    6. Dim chartHeight As Integer = CInt(chartWidth * 0.75 / 2)
    7. Dim chartsPerPage As Integer = 2
    8. Dim chartIndex As Integer = 0
    9. For i As Integer = currentPageIndex To cmb_Wettertyp.Items.Count - 1 Step 1
    10. ' Set the selected item in the ComboBox
    11. cmb_Wettertyp.SelectedIndex = i
    12. ' Draw the chart
    13. Using chartImage As New Bitmap(Chart1.Width, Chart1.Height)
    14. Chart1.DrawToBitmap(chartImage, New Rectangle(0, 0, Chart1.Width, Chart1.Height))
    15. e.Graphics.DrawImage(chartImage, e.MarginBounds.Left, yPos, chartWidth, chartHeight)
    16. chartIndex += 1
    17. If chartIndex Mod 2 = 0 Then
    18. yPos += chartHeight
    19. If chartIndex < cmb_Wettertyp.Items.Count Then
    20. e.HasMorePages = True
    21. currentPageIndex = i + 1
    22. Exit Sub
    23. End If
    24. Else
    25. yPos += chartHeight
    26. End If
    27. End Using
    28. Next
    29. ' Reset the page index
    30. currentPageIndex = 0
    31. End Sub

    Bilder

    • chart-1.jpg

      174,44 kB, 641×868, 50 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Es wird zwar immer als letztes ein leerBlatt ausgegeben

    VB.NET-Quellcode

    1. Dim chartIndex As Integer = 0
    Der erste gültige Chart-Index ist 1, nicht aber 0 ("Bitte wählen").
    Sieh Dir das mal an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub PrintChartButton_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
    2. ' Create a PrintDocument object
    3. Dim pd As New Printing.PrintDocument()
    4. ' Set the printer settings
    5. pd.DefaultPageSettings.Landscape = Paperformat ' Set the page orientation to landscape
    6. pd.DefaultPageSettings.PaperSize = New PaperSize("A4", 827, 1169) ' Set the paper size to A4
    7. ' Add an event handler to print the chart
    8. AddHandler pd.PrintPage, AddressOf PrintChart
    9. AddHandler pd.BeginPrint, AddressOf BeginPrint
    10. ' Print the chart
    11. pd.Print()
    12. End Sub
    14. Private currentPageIndex As Integer
    15. Private chartIndex As Integer
    16. Private Sub BeginPrint(sender As Object, e As Printing.PrintEventArgs)
    17. ' Reset the page index
    18. currentPageIndex = 0
    19. chartIndex = 1
    20. End Sub
    22. Private Sub PrintChart(sender As Object, e As Printing.PrintPageEventArgs)
    23. ' Initialize variables
    24. Dim yPos As Single = e.MarginBounds.Top
    25. Dim chartWidth As Integer = CInt(e.PageSettings.PrintableArea.Width)
    26. Dim chartHeight As Integer = (chartWidth * 3) \ 8
    28. e.Graphics.DrawString($"Seite {currentPageIndex + 1}", SystemFonts.CaptionFont, Brushes.Red, e.MarginBounds.Left, yPos)
    29. yPos += SystemFonts.CaptionFont.Height
    31. ' 2 Charts pro Seite
    32. For i As Integer = 0 To 1
    33. ' Set the selected item in the ComboBox
    34. cmb_Wettertyp.SelectedIndex = chartIndex
    36. ' Draw the chart
    37. Using chartImage As New Bitmap(Chart1.Width, Chart1.Height)
    38. Chart1.DrawToBitmap(chartImage, New Rectangle(0, 0, Chart1.Width, Chart1.Height))
    39. e.Graphics.DrawImage(chartImage, e.MarginBounds.Left, yPos, chartWidth, chartHeight)
    41. e.Graphics.DrawString($"{chartIndex}: {cmb_Wettertyp.SelectedItem}", SystemFonts.CaptionFont, Brushes.Red, e.MarginBounds.Left, yPos)
    43. chartIndex += 1
    44. yPos += chartHeight
    46. If chartIndex = cmb_Wettertyp.Items.Count Then
    47. Exit Sub
    48. End If
    50. If i = 1 Then
    51. e.HasMorePages = True
    52. currentPageIndex += 1
    53. End If
    54. End Using
    55. Next
    56. End Sub
    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!

    Obwohl es anscheinend nicht mehr relevant ist:
    Änderungen am Originalprojekt

    VB.NET-Quellcode

    1. Private ReadOnly Images As New List(Of Image)
    3. Private Sub PrintChart(sender As Object, e As Printing.PrintPageEventArgs)
    4. ' Draw the chart on a bitmap image
    5. ' Calculate the dimensions of the chart on the printed page
    6. Dim RowIndex = 0
    7. For i = 0 To Images.Count - 1
    8. Dim chartWidth As Integer = CInt(225 * 1.5)
    9. Dim chartHeight As Integer = CInt(150 * 1.5)
    10. ' Draw the chart on the printed page
    11. ' gespeicherte Bilder durchgehen und platzieren
    12. e.Graphics.DrawImage(Images(i), CInt(e.MarginBounds.Left + 250 * 1.5 * (i Mod 2)), CInt(e.MarginBounds.Top + (175 * 1.5 * RowIndex)), chartWidth, chartHeight)
    13. If i Mod 2 = 1 Then RowIndex += 1
    14. Next
    15. End Sub
    17. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'alles drucken
    18. For i = 1 To cmb_Wettertyp.Items.Count - 1
    19. cmb_Wettertyp.SelectedIndex = i 'ComboBox-Selektion ändern
    20. Await Threading.Tasks.Task.Delay(150) 'dem GUI Zeit geben, sich zu aktualisieren
    21. Dim chartImage As New Bitmap(Chart1.Width, Chart1.Height)
    22. Chart1.DrawToBitmap(chartImage, New Rectangle(0, 0, Chart1.Width, Chart1.Height)) 'Bild aus Chart erstellen
    23. Images.Add(chartImage) 'Bild merken
    24. Next
    25. PrintChartButton_Click(Me, EventArgs.Empty)
    26. End Sub


    Ich hab den Code weder aufgeräumt, noch den Button umbenannt oder mich um die Entsorgung der Bilder nach dem Drucken gekümmert.
    Dateien

    • WetterAppUI.zip

      (390,09 kB, 53 mal heruntergeladen, zuletzt: )
    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.

Facebook
Telefonspende