Dim druckbereich As Panel
     druckbereich = Panel1
        Dim g As Graphics = e.Graphics
        Dim bereich As New Bitmap(druckbereich.Width, druckbereich.Height)
        Dim rec As New Rectangle(10, 10, druckbereich.Width, _
          druckbereich.Height)
        g.DrawImage(bereich, 5, 5)