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.

    Mehrere Charts auf ein A4 Blatt drucken.

    Guten morgen
    Im nachfolgenden Code werden die Daten aus XML Dateien mittels Select/Case in einem Chart angezeigt. Über die Druckfunktion kann ich nun immer das aktl. Chart ausdrucken.
    Nun meine Frage:
    Wie bekomme ich es hin, alle Select-Bereiche automatisch durchlaufen zu lassen um diese dann alle auf einem Blatt auszudrucken.

    Für Hilfe wäre ich Dankbar.



    Spoiler anzeigen
    ​
    Die Ausgabe der Daten mittels Select/Case

    VB.NET-Quellcode

    1. ​
    2. Private Sub LoadWeatherDataAndChart()
    3. ReadDataFromXml()
    4. 'Datum im Format "yyyy-MM" aus dem DTPicker auslesen
    5. Dim selectedDate As String = dtp_Show.Value.ToString("yyyy-MM")
    6. 'Pfad zur ausgewählten XML-Datei erstellen
    7. Dim xmlFilePath As String = Path.Combine(NewDatafolder, selectedDate & ".xml")
    8. 'Prüfen, ob die ausgewählte XML-Datei existiert
    9. If File.Exists(xmlFilePath) Then
    10. Dim weatherDataList As List(Of WeatherDataDiag) = ReadWeatherDataFromXml(xmlFilePath)
    11. ' Chart-Serie erstellen, wenn ein Datentyp ausgewählt wurde
    12. If cmb_Wettertyp.SelectedItem IsNot Nothing Then
    13. ' Chart-Serie erstellen
    14. Dim chartSeries As New Series(cmb_Wettertyp.SelectedItem.ToString())
    15. Dim chartSeries1 As Series = Nothing ' Neue Serie erstellen
    16. Select Case cmb_Wettertyp.SelectedItem.ToString()
    17. Case "Regen"
    18. lblEinheiten.Text = "Regen: Niederschläge in mm"
    19. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    20. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    21. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    22. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    23. chartSeries.Color = Color.Blue
    24. chartSeries.ChartType = SeriesChartType.Column
    25. For Each weatherData As WeatherDataDiag In weatherDataList
    26. chartSeries.Points.AddXY(weatherData.Datum, weatherData.RegenTag)
    27. Next
    28. Case "SchneeTag"
    29. lblEinheiten.Text = "Schnee: Niederschläge in cm"
    30. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    31. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    32. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    33. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    34. chartSeries.Color = Color.DarkSlateBlue
    35. chartSeries.ChartType = SeriesChartType.Column
    36. chartSeries1 = New Series("SchneeNacht") ' Neue Serie initialisieren
    37. chartSeries1.Color = Color.Magenta
    38. chartSeries1.ChartType = SeriesChartType.Column
    39. For Each weatherData As WeatherDataDiag In weatherDataList
    40. chartSeries.Points.AddXY(weatherData.Datum, weatherData.SchneeTag)
    41. chartSeries1.Points.AddXY(weatherData.Datum, weatherData.SchneeNacht)
    42. Next
    43. Case "TempTag"
    44. lblEinheiten.Text = "Temperaturen in °Celsius"
    45. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    46. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    47. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    48. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    49. chartSeries.Color = Color.Maroon
    50. chartSeries.ChartType = SeriesChartType.Line
    51. chartSeries1 = New Series("TempNacht") ' Neue Serie initialisieren
    52. chartSeries1.Color = Color.DarkGreen
    53. chartSeries1.ChartType = SeriesChartType.Line
    54. For Each weatherData As WeatherDataDiag In weatherDataList
    55. chartSeries.Points.AddXY(weatherData.Datum, weatherData.TempTag)
    56. chartSeries1.Points.AddXY(weatherData.Datum, weatherData.TempNacht)
    57. Next
    58. Case "WindTag"
    59. lblEinheiten.Text = "Windstärke nach Beaufort-Skala"
    60. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    61. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    62. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    63. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    64. chartSeries.Color = Color.MediumVioletRed
    65. chartSeries.ChartType = SeriesChartType.Line
    66. chartSeries1 = New Series("WindNacht") ' Neue Serie initialisieren
    67. chartSeries1.Color = Color.DarkSlateGray
    68. chartSeries1.ChartType = SeriesChartType.Line
    69. For Each weatherData As WeatherDataDiag In weatherDataList
    70. chartSeries.Points.AddXY(weatherData.Datum, weatherData.WindTag)
    71. chartSeries1.Points.AddXY(weatherData.Datum, weatherData.WindNacht)
    72. Next
    73. Case "LuftfmaxTag"
    74. lblEinheiten.Text = "Luftfeuchtigkeit in %"
    75. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    76. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    77. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    78. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    79. chartSeries.Color = Color.DeepPink
    80. chartSeries.ChartType = SeriesChartType.Line
    81. chartSeries1 = New Series("LuftfminTag") ' Neue Serie initialisieren
    82. chartSeries1.Color = Color.LimeGreen
    83. chartSeries1.ChartType = SeriesChartType.Line
    84. For Each weatherData As WeatherDataDiag In weatherDataList
    85. chartSeries.Points.AddXY(weatherData.Datum, weatherData.LuftfminTag)
    86. chartSeries1.Points.AddXY(weatherData.Datum, weatherData.LuftfmaxTag)
    87. Next
    88. Case "LuftfmaxNacht"
    89. lblEinheiten.Text = "Luftfeuchtigkeit in %"
    90. Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    91. Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    92. Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    93. Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    94. chartSeries.Color = Color.DarkGreen
    95. chartSeries.ChartType = SeriesChartType.Line
    96. chartSeries1 = New Series("LuftfminNacht") ' Neue Serie initialisieren
    97. chartSeries1.Color = Color.OrangeRed
    98. chartSeries1.ChartType = SeriesChartType.Line
    99. For Each weatherData As WeatherDataDiag In weatherDataList
    100. chartSeries.Points.AddXY(weatherData.Datum, weatherData.LuftfminNacht)
    101. chartSeries1.Points.AddXY(weatherData.Datum, weatherData.LuftfmaxNacht)
    102. Next
    103. End Select
    104. ' Chart mit den Serien füllen
    105. Dim selectedDatein As Date = dtp_Show.Value
    106. Dim formattedDate As String = selectedDatein.ToString("MMMM-yyyy")
    107. Chart1.Series.Clear()
    108. Chart1.Titles.Clear()
    109. Chart1.ChartAreas.Clear() ' Alle ChartAreas löschen
    110. Chart1.Titles.Add("Wetterdaten für den Monat : " & formattedDate)
    111. ' Neue ChartArea initialisieren
    112. Dim chartArea1 As New ChartArea()
    113. chartArea1.AxisX.IntervalType = DateTimeIntervalType.Days ' Achsenintervalltyp auf Tage setzen
    114. chartArea1.AxisX.Interval = 1 ' Achsenintervall auf 1 Tag setzen
    115. chartArea1.AxisX.LabelStyle.Format = "dd.MM" ' Datumsformat für die X-Achse setzen
    116. ' chartArea1.AxisY.Title = cmb_Wettertyp.SelectedItem.ToString()
    117. Chart1.ChartAreas.Add(chartArea1) ' ChartArea hinzufügen
    118. ' Chart mit den Serien füllen
    119. Chart1.Series.Add(chartSeries)
    120. If chartSeries1 IsNot Nothing Then ' Sicherstellen, dass die neue Serie initialisiert wurde
    121. Chart1.Series.Add(chartSeries1)
    122. End If
    123. End If
    124. Else
    125. MessageBox.Show("Die ausgewählte Datei wurde nicht gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    126. End If
    127. End Sub


    Das ausdrucken eines Chart

    VB.NET-Quellcode

    1. ​
    2. #Region "Drucken"
    4. Private Sub chkPrint_CheckedChanged(sender As Object, e As EventArgs) Handles chkPrint.CheckedChanged
    5. AktualisierePaper()
    6. End Sub
    8. Private Sub AktualisierePaper()
    9. If chkPrint.Checked Then
    10. Paperformat = True
    11. Else
    12. Paperformat = False
    13. End If
    14. End Sub
    16. Private Sub PrintChartButton_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
    17. ' Create a PrintDocument object
    18. Dim pd As New Printing.PrintDocument()
    19. ' Set the printer settings
    20. pd.DefaultPageSettings.Landscape = Paperformat ' Set the page orientation to landscape
    21. pd.DefaultPageSettings.PaperSize = New PaperSize("A4", 827, 1169) ' Set the paper size to A4
    22. ' Add an event handler to print the chart
    23. AddHandler pd.PrintPage, AddressOf PrintChart
    24. ' Print the chart
    25. pd.Print()
    26. End Sub
    28. Private Sub PrintChart(sender As Object, e As Printing.PrintPageEventArgs)
    29. ' Draw the chart on a bitmap image
    30. Dim chartImage As New Bitmap(Chart1.Width, Chart1.Height)
    31. Chart1.DrawToBitmap(chartImage, New Rectangle(0, 0, Chart1.Width, Chart1.Height))
    32. ' Calculate the dimensions of the chart on the printed page
    33. Dim chartWidth As Integer = e.MarginBounds.Width
    34. Dim chartHeight As Integer = CInt(chartImage.Height * chartWidth / chartImage.Width)
    35. ' Draw the chart on the printed page
    36. e.Graphics.DrawImage(chartImage, e.MarginBounds.Left, e.MarginBounds.Top, chartWidth, chartHeight)
    37. End Sub
    38. #End Region


    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Das einfachste, ggf. aber nicht eleganteste: In einer Schleife alle ComboBox-Werte nacheinander auswählen, sodass das Chart entsprechend neu gezeichnet wird (nach dem Selektieren dem Programm eine kleine Denkpause lassen (z.B. mit dem bei mir beliebtem Delay-Workaround), sonst geht alles wahrscheinlich zu schnell), dann davon mit der von Dir bereits verwendeten Chart1.DrawToBitmap-Funktion ein Bild machen und dies in einer Variablen speichern (eine List(Of Image) bietet sich an) und dann in der Druckfunktion die List(Of Image) abarbeiten, will heißen: die einzelnen gespeicherten Bilder herholen und positionieren.
    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
    Also ich hatte schon gestern so eine Idee mit PicBoxen welche auf ein neues Form gezeichnet werden sollten, bin aber daran gescheitert.
    Bin froh das ich es soweit mit dem "Drucken" geschafft habe.

    Ich bin nun soweit das zwar die Chart-Überschrift auf meinem Blatt erscheint, aber keins der Diagramme.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ' ganz am anfang des Codes
    3. Private chartImages As New List(Of Image)

    Nur der untere Teil vom vorherigen Code:

    VB.NET-Quellcode

    1. ​
    2. End Select
    3. ' Chart mit den Serien füllen
    4. Dim selectedDatein As Date = dtp_Show.Value
    5. Dim formattedDate As String = selectedDatein.ToString("MMMM-yyyy")
    6. Chart1.Series.Clear()
    7. Chart1.Titles.Clear()
    8. Chart1.ChartAreas.Clear() ' Alle ChartAreas löschen
    9. Chart1.Titles.Add("Wetterdaten für den Monat : " & formattedDate)
    10. ' Neue ChartArea initialisieren
    11. Dim chartArea1 As New ChartArea()
    12. chartArea1.AxisX.IntervalType = DateTimeIntervalType.Days ' Achsenintervalltyp auf Tage setzen
    13. chartArea1.AxisX.Interval = 1 ' Achsenintervall auf 1 Tag setzen
    14. chartArea1.AxisX.LabelStyle.Format = "dd.MM" ' Datumsformat für die X-Achse setzen
    15. ' chartArea1.AxisY.Title = cmb_Wettertyp.SelectedItem.ToString()
    16. Chart1.ChartAreas.Add(chartArea1) ' ChartArea hinzufügen
    17. ' Chart mit den Serien füllen
    18. Chart1.Series.Add(chartSeries)
    19. If chartSeries1 IsNot Nothing Then ' Sicherstellen, dass die neue Serie initialisiert wurde
    20. Chart1.Series.Add(chartSeries1)
    21. End If
    22. End If
    24. ' Schleife durch alle ComboBox-Werte
    25. For Each item As Object In cmb_Wettertyp.Items
    26. ' ComboBox-Wert auswählen
    27. cmb_Wettertyp.SelectedItem = item
    28. ' Eine kleine Pause einlegen, damit das Chart neu gezeichnet wird
    29. System.Threading.Thread.Sleep(1500)
    30. ' Chart als Bitmap zeichnen und in der Liste speichern
    31. Dim chartBitmap As New Bitmap(Chart1.Width, Chart1.Height)
    32. Chart1.DrawToBitmap(chartBitmap, Chart1.ClientRectangle)
    33. chartImages.Add(chartBitmap)
    34. Next
    35. Else
    36. MessageBox.Show("Die ausgewählte Datei wurde nicht gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    37. End If

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Schau mal hier rein, wie Bilder (am Beispiel von Kreisen) gedruckt werden:
    Drucken mehrseitiger Dokumente
    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!

    Amelie schrieb:

    ' Eine kleine Pause einlegen, damit das Chart neu gezeichnet wird
    System.Threading.Thread.Sleep(1500)
    Der Kommentar lügt. System.Threading.Thread.Sleep = "Das Programm im kompletten Umfang anhalten!"
    Mein verlinkter Delay-Workaround hingegen bedeutet: Die Methode soll vorerst pausiert werden, damit der Computer die Chance hat, andere Aufgabe, wie z.B. das Zeichnen der Benutzeroberfläche inkl. Chart zu ermöglichen, bevor es weitergeht.
    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.

    VaporiZed schrieb:

    Der Kommentar lügt. System.Threading.Thread.Sleep = "Das Programm im kompletten Umfang anhalten!"


    Das ist auch nur die halbe Wahrheit. Ist wird nicht unbedingt das ganze Programm angehalten. Nur der Thread in dem diese Funktion gecallt wird. Klar kann man in diesem Fall davon ausgehen, das der UI Thread betroffen ist und keine anderen laufen, aber manch jemand liest das und denkt dann so kann ich also das ganze Programm "pausieren".
    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

    Da hast Du recht, da hab ich Blödsinn geschrieben.
    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.

    Also bei meinem letzten Code ist es so, das sich das Programm nun Aufhängt.
    Ich meine Eingangspost schrieb ich ja, das dass drucken eines Charts funktioniert.
    Leider ist das eine Papierverschwendung. Deswegen die Überlegung, mehrere Charts auf ein Blatt zu drucken.
    Komme mit dem durchlaufen der Select/Cases usw nicht vorran.

    Beim Awati/Sync müsste ich nun meinen bestehenden Code wieder komplett umschreiebn....
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Also bei meinem letzten Code ist es so, das sich das Programm nun Aufhängt.
    wie quasi geschrieben: System.Threading.Thread.Sleep = "Den GUI-Thread im kompletten Umfang anhalten!" Das Programm stoppt für 1,5 Sekunden, ohne dass Du einen Vorteil hast.

    Amelie schrieb:

    Beim Awati/Sync müsste ich nun meinen bestehenden Code wieder komplett umschreiebn....
    Nee, eigentlich nicht. Du musst wahrscheinlich nur im Methodenkopf an richtiger Stelle das Async hinschreiben und statt dem System.Threading.Thread.Sleep(1500) eben das System.Threading.Tasks.Task.Delay(1500). Ob 1500 der richtige Wert ist, musst Du ausprobieren, vielleicht reicht auch schon 1.
    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.

    @Amelie Poste mal ein vollständiges laufendes und bereinigtes Projekt.
    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!

    @RodFromGermany

    Anbei der bereinigte Code und mit DemoDaten.
    Bitte nicht gleich meinen Kopf abreissen. :D Hab mir echt mühe gegeben.

    ----EDIT----
    Überarbeite den Code!
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Bitte immer vorher selber in nem neuen Ordner wieder auspacken und testen. Die ApSet.xml fehlt.
    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.

    frmWeather_Load() -> DoSomething() -> ReadDatafolderFromXml() -> XDocument.Load(_datafolder)
    Bilder

    • Error.png

      37,77 kB, 818×294, 160 mal angesehen
    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.

    Amelie schrieb:

    wird doch erstellt
    Beim ersten Start nicht:

    ====
    Gib bekannt, wo die Daten hingehören.
    Wie SOLL denn Dein Ausdruck aussehen?
    Der Inhalt der Form wird ordentlich gedruckt.
    Wenn Du allerdings eine Tabelle drucken willst, schaust Du hier:
    Drucken mehrseitiger Dokumente
    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!

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

    Die Tabelle aus dem DGV und deren Ausdruck ist ja ok.
    Mir geht es um die Charts (Button Diagramm)
    So wie im Bild möchte ich die einzelnen Charts auf einem Blatt haben.
    Im Moment wird jedes Chart auf einem seperaten Blatt gedruckt.

    Wo letztendlich die Daten abgelegt werden, kann man in den Einstellungen festlegen.
    Bilder

    • chart-1.jpg

      168,82 kB, 453×900, 164 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Wo letztendlich die Daten abgelegt werden, kann man in den Einstellungen festlegen.
    Aber nicht beim ersten Aufruf.

    VaporiZed schrieb:

    Bitte immer vorher selber in nem neuen Ordner wieder auspacken und testen.

    Wie komme ich an diese Bilder?
    Bitte eine Gebrauchsanweisung posten.
    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!

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

    ​Wie komme ich an diese Bilder...


    Programm starten, Menue Diagramme. Dann über die Combobox die verschiedenen Wetter (Regen, Schnee usw) auswählen.
    Nun wird ein Diagramm angezeigt. Diese sollen nun alle auf einem Blatt ausgedruckt werden.

    ​Aber nicht bei ersten Aufruf

    OK da ist noch ein Fehlerim Code den ich dann später noch beseitige.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Diese sollen nun alle auf einem Blatt ausgedruckt werden.
    Da musst Du noch ein paar Hausaufgaben machen.
    Folgender getesteter Code druckt 2 Charts untereinander:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub PrintChart(sender As Object, e As Printing.PrintPageEventArgs)
    2. ' Calculate the dimensions of the chart on the printed page
    3. Dim chartWidth As Integer = e.MarginBounds.Width
    5. For i = 1 To 2
    6. cmb_Wettertyp.SelectedIndex = i
    8. ' Draw the chart on a bitmap image
    9. Using chartImage As New Bitmap(Chart1.Width, Chart1.Height)
    10. Dim chartHeight As Integer = CInt(chartImage.Height * chartWidth / chartImage.Width)
    12. Chart1.DrawToBitmap(chartImage, New Rectangle(0, 0, Chart1.Width, Chart1.Height))
    13. ' Draw the chart on the printed page
    14. e.Graphics.DrawImage(chartImage, e.MarginBounds.Left, e.MarginBounds.Top + (i - 1) * chartHeight, chartWidth, chartHeight)
    15. End Using
    16. Next
    17. End Sub
    Für weitere Charts brauchst Du eine Seitenschaltung.
    Wie das funktioniert findest Du hier:
    Drucken mehrseitiger Dokumente
    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!

    Das erste Ergebnis mit meinem Async-Await-Vorschlag. Codeänderung zum bisherigen Projekt minimal.
    Bilder

    • Result.png

      168,82 kB, 1.291×912, 160 mal angesehen
    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.