Non mi esegue il salto a nuova pagina di stampa

Devo stampare 2 pagine :

quando devo andare alla seconda pagina ho messo

e.HasMorePages = False

e per riprendere la stampa su nuovo foglio ho inserito

e.HasMorePages = True

Ho letto gli esempi presenti sul forum, ma si riferiscono alla stampa di un singolo file.

Non ho capito come devo fare.

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.TranslateTransform(40, 0)
        Marchio(e)

        e.Graphics.TranslateTransform(0, 35)
        DatiCamp(e)

       e.Graphics.TranslateTransform(346, 130)
        Firma(e)

        e.HasMorePages = False
        e.HasMorePages = True   'cambio pagina

        e.Graphics.TranslateTransform(346 - 40, 0)
        Marchio(e)
        
        e.Graphics.TranslateTransform(0, 50)
        fig1(e)


        e.Graphics.TranslateTransform(346, 130)
        Firma(e)
    End Sub

Ho in firma un link ad una classe per la gestione delle stampe, da cui puoi trarre ispirazione. C'è anche un progettino scaricabile e funzionante (spero).

Devo stampare 2 pagine :

quando devo andare alla seconda pagina ho messo

e.HasMorePages = False

e per riprendere la stampa su nuovo foglio ho inserito

e.HasMorePages = True

Ho letto gli esempi presenti sul forum, ma si riferiscono alla stampa di un singolo file.

Ciao Mario
l'evento PrintPage è generato per ogni pagina da stampare. Se all'uscita dall'evento e.HasMorePages = True allora viene aggiunta una nuova pagina e rieseguito tutto il codice in PrintPage.

e.HasMorePages = False
        e.HasMorePages = True   'cambio pagin

Queste due istruzioni non creano un cambio di pagina.

Dovresti inserire una variabile che conti il numero di pagina in stampa (numero di volte in cui entri nell'evento PrintPage) ed un if che ti consenta di eseguire il codice di stampa della prima pagina, se devi stampare quella, o della seconda, nel caso in cui tu abbia già stampato la prima.

Qualcosa del genere (presuppone che tu sappia a priori di dover stampare solo due pagine)

Static pageNumber As Integer
        'Numero di pagina in stampa
        pageNumber += 1

        If pagenumber = 1 Then
            'Codice di stampa prima pagina

            e.HasMorePages = True
        Else
            'Codice di stampa seconda pagina

            'e.HasMorePages = False questa istruzione non è necessaria
            'False è il valore di default
            'Azzero il valore in caso di nuova stampa
            pageNumber = 0
        End If

Ciao

Per Elisa ... un bacio.

Ho inserito il tuo codice e funziona a meraviglia.

Grazie di cuore.

A buon rendere.


_________________


Per alextyx , grazie anche a te, mi studierò senz'altro il tuo programma.