Dim listindex As Integer 'fortlaufener Zähler für Listbox-Items
 
Private Sub PrintText(ByVal sender As Object, _
           ByVal ev As Printing.PrintPageEventArgs)
 
   ev.Graphics.DrawString("Headline", New Font("Arial", 14), _
                                  New SolidBrush(Color.Blue), 50, 10)
 
   Dim pagelinenumber As Integer
   Dim textfont As New Font("Arial", 12)
   Dim textbrush As New SolidBrush(Color.Black)
 
   '20 Zeilen (=ListIndices) pro Seite ausgeben
   While pagelinenumber < 20 And listindex < ListBox1.Items.Count
      ev.Graphics.DrawString(ListBox1.Items(listindex).ToString, _
              textfont, textbrush, 10, pagelinenumber * 30 + 100)
      pagelinenumber += 1
      listindex += 1
   End While
 
   ev.HasMorePages = listindex < ListBox1.Items.Count 'Folgeseite??
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
 
   Try
      Dim PrintDoc As New System.Drawing.Printing.PrintDocument
      AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
      listindex = 0 'Mit erster Zeile beginnen
      PrintDoc.Print()
   Catch ex As Exception
      MessageBox.Show("Druck-Problem!", ex.ToString)
   End Try
End Sub