[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 ?