Visualizzazione dei risultati da 1 a 2 su 2
  1. #1

    [VB.NET] Fa L'Anteprima ma non stampa

    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

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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.