Private Sub PD_Strombeleg_PrintPage(ByVal sender As Object, ByVal e As _
    PrintPageEventArgs) Handles PD_Strombeleg.PrintPage
        Dim g As Graphics = e.Graphics
 
        'Beg: Druck-Qualität
        g.CompositingQuality = _
          System.Drawing.Drawing2D.CompositingQuality.HighSpeed
        g.InterpolationMode = _
        System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
        g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
        g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
        g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
 
        g.PageUnit = GraphicsUnit.Display
        'End: Druck-Qualität
 
        '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
        'End: Druckbereich
 
        DruckSeite += 1
 
        'Beg: Seite 1 - Hauptformular
        If DruckSeite = 1 Then
            'Titel & Text:
            Titel_Text_Block(g, Druckbereich)
 
            If HBDatenbankDS.tblStrom.Rows.Count > 0 Then
 
                e.HasMorePages = True : g.Dispose() : Return
            Else
                e.HasMorePages = False : g.Dispose() : Return
            End If
        End If
        'End: Seite 1 - Hauptformular
 
 
 
        e.Graphics.Dispose()
        'p1.Dispose()
    End Sub