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