Private Sub PrintDocument_PrintPage_
               (ByVal sender As System.Object, _
                ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
               Handles PrintDocument.PrintPage
      Stift = New Pen(Color.Black)                 
      Stift.Width = 0.5                                
      Stift.DashStyle = DashStyle.Solid                   
      Stift.StartCap = LineCap.Flat                   
      Stift.EndCap = LineCap.ArrowAnchor                     
      e.Graphics.DrawLine(Stift,460,342,472,358)
   End Sub