Dim gr As Graphics = e.Graphics
Dim printrect As Rectangle = e.MarginBounds
        Dim fnt As New Font("arial", 10)
Dim Strichblack As New Pen(Color.Black, 1)
 
gr.DrawString("Titel der Seite", fntfett, Brushes.Black, e.MarginBounds.X - 60, _
           e.MarginBounds.Y + 10)
 
Dim x1 As Single = 10.0F
Dim y1 As Single = 100.0F
Dim x2 As Single = 600.0F
Dim y2 As Single = 100.0F
e.Graphics.DrawLine(schwarzdick1, x1, y1, x2, y2) 'Trennstrich 1
 
'++++++++++++++++++++++++++++++++
 
x1 As Single = 10.0F
y1 As Single = 200.0F
x2 As Single = 600.0F
y2 As Single = 200.0F
e.Graphics.DrawLine(schwarzdick1, x1, y1, x2, y2) 'Trennstrich 2