Private Sub PP_PrintPage(ByVal sender As Object, ByVal e As _
   PrintPageEventArgs) Handles PD.PrintPage
        Static PrintChart As Boolean = True
        Static Allpages As Integer = 1
        Static CurrenctPage As Integer = 1
 
 
 
        Dim strDokumentname As String = String.Concat( _
          tbx_SZ_Datumsbereich.Text) & " Stördauer: " & lbl_Minuten.Text
 
 
        Dim myDatum As String = "Druckdatum: " & Format(Now, "dd.MM.yyyy" & _
          "HH:mm:ss")
        Dim strErsteller As String = tbx_Anlage_ausgewaehlt.Text
        Dim BMPs() As Bitmap = {New Bitmap(Chart2.Width, Chart2.Height)}
        Dim max_Y As Integer = DGV1.Rows.Count - 1
 
 
        Dim y As Single
        If PrintChart Then
            Chart2.DrawToBitmap(BMPs(0), Chart2.ClientRectangle)
            'Liste Starthöhe mit Chart Seite 1    ------>
            y = Chart2.Height + 105
            With e.Graphics
                .DrawImage(BMPs(0), 85, 50)
                .DrawString(myDatum, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                 New Point(30, PD.DefaultPageSettings.Bounds.Height - 70))
                .DrawString(strErsteller, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                New Point(30, PD.DefaultPageSettings.Bounds.Height - 40))
                .DrawString(strDokumentname, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                New Point(300, PD.DefaultPageSettings.Bounds.Height - 70))
            End With
 
        Else
            'Liste Starthöhe ohne Chart ab Seite 2 ----->
 
            y = 50
            With e.Graphics
                .DrawString(myDatum, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                New Point(30, PD.DefaultPageSettings.Bounds.Height - 70))
                .DrawString(strErsteller, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                New Point(30, PD.DefaultPageSettings.Bounds.Height - 40))
                .DrawString(strDokumentname, New Font("Times New Roman", 10, _
                  FontStyle.Regular), Brushes.Black, _
                New Point(300, PD.DefaultPageSettings.Bounds.Height - 70))
 
            End With
        End If