Ok!
Non uso report, e stampo su fogli A4 di una comune stampante laser.
Io vorrei stampare i dati, che provengono da una listbox, per ogni item della listbox, vorrei stampare una pagina nuova.
Credo che la chiave sia "hasnewpages" ma non riesco a comprendere come trattarlo...

codice:
Private Sub PrintDocument1_PrintPage1(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printdocument1.PrintPage
        'disegna il testo da stampare
        Dim NumeroRigheLista As Integer
        Dim testo, data As String
        Dim posy As Integer

        NuovoFont = New Font("Times New Roman", 12, FontStyle.Regular, GraphicsUnit.Point)
        FontTitoli = New Font("Times New Roman", 16, FontStyle.Bold, GraphicsUnit.Point)

        NumeroRigheLista = lista.Items.Count
        data = "Data lista " + DateTimePicker1.Text
       
       'stampo la data della lista
        e.Graphics.DrawString(data, FontTitoli, Brushes.Black, 10, 10)

        'inizio a stampare l'elenco
        For i = 0 To NumeroRigheLista - 1
            testo = lista.Items(i)
            posy = posy + 100
            e.Graphics.DrawString(testo, NuovoFont, Brushes.Black, 20, posy)
            e.Graphics.DrawRectangle(Pens.Black, 18, posy, 150, 150)
        Next
           End Sub
Grazie