Private Sub DruckenToolStripMenuItem_Click()
        PrintDialog1.AllowSomePages = True
 
        PrintDialog1.ShowHelp = True
 
 
        PrintDialog1.Document = PrintDocument1
 
        Dim result As DialogResult = PrintDialog1.ShowDialog()
 
 
        If (result = Windows.Forms.DialogResult.OK) Then
            PrintDocument1.Print()
        End If
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        SL.Print(ListView1, PrintDocument1, e)
    End Sub