[VB.NET] Si Anteprima ma Niente stampa

[Raptusis]

Salve a tutti,

Ho fatto un programma dove stampo alcune pagine,

Quando stampo una pagina il problema non sussiste, fa l'anteprima e stampa.

Ma quando stampo la copia a cliente e copia interna (DUE PAGINE UGUALI ALLA PRIMA), VISUALIZZA PERFETTAMENTE l'ANTEMPRIMA ma : NON STAMPA !
Ossia stampa solo UNA PAGINA BIANCA



Per quale motivo? quale può essere la causa di questo comportamento ?

Forse i margini? ma sono gli stessi della pagina singola!

Uso il seguente codice :

[...]

        Dim marginiz As New Printing.Margins(5, 100, 5, 100)

        PageSetupDialog1.PageSettings.Margins = marginiz




            If ComboBox1.Text = "copia cliente" Then

                AddHandler documento.PrintPage, AddressOf Me.MiePagineStampaCliente

            End If

            If ComboBox1.Text = "entrambe" Then

                AddHandler documento.PrintPage, AddressOf Me.MiePagineStampa

            End If


            Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog
            Me.PrintPreviewDialog1.Document = documento
            Me.PrintPreviewDialog1.Show()



[...]



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

qui funziona sia ANTEPRIMA che STAMPA 

        PrintFooter("copia cliente", e)

        e.HasMorePages = False

    End Sub






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

qui funziona perfettamente l'ANTEPRIMA  ma NON la STAMPA (stampa una pagina bianca) 



        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

[Raptusis]

Forse potrebbe essere l'uso sbagliato che faccio di HasMorePages ?