[VB2008] nuova pagina

[mummy71]

Come è possibile "forzare" una nuova pagina di stampa.
Date 5 stringhe, vorrei che queste generassero 5 fogli diversi ?
Grazie

[oregon]

Ma di che parli?

Mica siamo indovini ...

[mummy71]

Mi spiego meglio.
quando lancio la stampa su carta, vorrei far stampare due stringhe "string1" e "string2" su due pagine differenti, ovvero

string1 su pagina 1
... forzo l'interruzione di pagina (pagina nuova)
string2 su pagina 2

spero di essere stato piu' chiaro, grazie.

[oregon]

Ma come stampi? Con quale codice (usi report, quale tipo di stampante, altro ... ?) ... Da dove vengono i dati?

[mummy71]

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...

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