'Beg: Druckbereich
        Dim Druckbereich = g.VisibleClipBounds
        Dim margin = Me.PD_Strombeleg.DefaultPageSettings.Margins
        Druckbereich.Offset(margin.Left, margin.Top) ' obere linke Ecke
        Druckbereich.Width -= (margin.Left + margin.Right) ' neue Breite
        Druckbereich.Height -= (margin.Top + margin.Bottom) ' neue Höhe
 
        Dim x, y As Single
 
        x = Druckbereich.Left
        y = Druckbereich.Top
 
 
        Select Case DruckSeite
            Case 1
                'Titel & Text:
                Titel_Text_Block_Strom(g, Druckbereich)
                If Druckbereich.Height < e.MarginBounds.Bottom Then
                    e.HasMorePages = True
                    y += 30
                    DruckSeite += 1
                Else
                    e.HasMorePages = False
                    DruckSeite = 0
                End If
        End Select
 
            e.Graphics.Dispose()
            g.Dispose()