Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim w As Integer = screenpicture.Width  ' Breite des Hintergrunds
        Dim h As Integer = screenpicture.Height ' Höhe des Hintergrunds
        ' Bitmap für das Abbild des Controls / der Form bereitstellen
        Dim background = New Bitmap(w, h)
        ' Screenshot speichern
        screenpicture.DrawToBitmap(background, Rectangle.FromLTRB(0, 0, w, h)) _
          'Hintergrund zum   Speichern vorbereiten
        'Drucker auswählen
        PrintDocument1.PrinterSettings.PrinterName = _
          PrintDialog1.PrinterSettings.PrinterName
        'Drucken
        Dim bg = New PictureBox
        bg = background
        e.Graphics.DrawImage(bg, screenpicture.Bounds)
End Sub

        pname = (CType(sender, PictureBox).Name.Remove(0, 10))
        pArray(nFree) = New PictureBox
        pArray(nFree).Parent = Me.screenpicture
        pArray(nFree).Location = New Point(256, 256)
        pArray(nFree).Size = New Size(100, 100)
        pArray(nFree).Visible = True
        pArray(nFree).SizeMode = PictureBoxSizeMode.AutoSize
        pArray(nFree).ImageLocation = ".\Bilder\" + pname + ".jpg"

    Private Sub DruckengesamtesFeldToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      DruckengesamtesFeldToolStripMenuItem.Click
        'Druckfunktion starten
 
        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub