[VB.NET] Stampare due pagine e uso di HasMorePages

[Raptusis]

Salve a tutti.

come si utilizza il metodo "HasMorePages" per fargli stampare su due pagine?

per esempio una scritta sulla prima e un altra sulla seconda pagina?

ho tentato in tutti i modi , ma non ci riesco proprio.

su internet non ho trovato niente e gli esempi sono scarsi.


per stampare una pagina per esempio

e.Graphics.DrawString("prima", _PrintFont, Brushes.Black, 100 + 50 + DaSinistra, 750 - 30 - DaSotto)

per stampare la seconda pagina dovrebbe essere cosi in teoria?

e.Graphics.DrawString("prima", _PrintFont, Brushes.Black, 100 + 50 + DaSinistra, 750 - 30 - DaSotto)

e.HasMorePages = TRUE

e.Graphics.DrawString("seconda", _PrintFont, Brushes.Black, 100 + 50 + DaSinistra, 750 - 30 - DaSotto)

esiste un esempio per capire come si usa ?


Grazie anticipatametne a tutti. ^^

[alka]

Presumo che se imposti HasMorePages al valore True, venga generato nuovamente l'evento per la stampa di una nuova pagina; in caso contrario, la generazione della stampa si arresta.

Quando imposti l'argomento, dovresti modificare anche le variabili di stato per la stampa affinché, al prossimo evento per la generazione della nuova pagina, tu sappia qual è il numero o la pagina effettiva che devi produrre.

[Raptusis]

ho capito,

le variabili di stato per la stampa sono quelle che imposto all'inizio della stampa?
o devo modificarne altre?

quindi se non cè un modo per dire per esempio PAGE = 2 dovrei fare cosi'

imposta variabili di stato di stampa
costruisco pagina
HasMorePages=true
imposto variabili di stato
costruisco pagina


stampo documento

giusto?

[Raptusis]

ho risolto il problema ^_^

in pratica io facevo tutto quanto dentro l'evento "PrintPage" e quindi impostato hasmorepages su true ripeteva l'evento PrintPage .

grazie per i consigli !! e ciau ^^


Ho risolto in questo modo

    
...
            pCountPage = 0
            AddHandler documento.PrintPage, AddressOf Me.MiePagineStampa
            Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog
            Me.PrintPreviewDialog1.Document = documento
            Me.PrintPreviewDialog1.Show()
...






Private Sub MiePagineStampa(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)


        Select Case pCountPage
            Case Is = 1
                PrintFooter("copia cliente", e)
                e.HasMorePages = True
            Case Is = 2
                PrintFooter2("copia per uso amministrativo", e)
                e.HasMorePages = False
        End Select
        pCountPage += 1
    End Sub