Oppure

Loading
26/06/20 15:30
gnapolitano@teletu.it
Ho il seguente codice:
    Private Sub stampa_Click(sender As Object, e As EventArgs) Handles stampa.Click
        WebBrowser1.ShowPageSetupDialog()
        If MsgBoxResult.Ok Then
            For NumPag = 1 To pagine
                fileName = Application.StartupPath & "\tabulati\registroChiusuraNF" & Format(NumPag, "00") + ".html"
                WebBrowser1.Navigate(fileName)
                Application.DoEvents()
                Threading.Thread.Sleep(20)
                Do While WebBrowser1.IsBusy
                    Application.DoEvents()
                Loop
                WebBrowser1.Print()
            Next
        Else
            Me.annostat.Text = ""
            Me.Close()
            Exit Sub
        End If
    End Sub

Perché mai msgboxresult non esegue il condizionamento e quindi manda ttto il stampa come se cliccassi sempre su OK?
Grazie per il vostro aiauto.
26/06/20 15:50
Carlo
WebBrowser1.ShowPageSetupDialog() ti fa impostare i parametri di stampa, se clicchi ok i parametri vengono memorizzati, se clicchi annulla i parametri non vengono memorizzati.
WebBrowser1.ShowPageSetupDialog() lo devi richiamare con un button a parte, [SETTAGGIO PARAMETRI DI STAMPA]
Quando clicchi [STAMPA], la stampa avviene con i settaggi memorizzati.

Private Sub stampa_Click(sender As Object, e As EventArgs) Handles stampa.Click
    ' WebBrowser1.ShowPageSetupDialog() ' cosa vorresti ottenere con questa istruzione?
    Dim res As MsgBoxResult = MsgBox("stampo?", MsgBoxStyle.OkCancel) ' la conferma di stampare?
    If res = MsgBoxResult.Ok Then
        For NumPag = 1 To pagine
            filename = Application.StartupPath & "\tabulati\registroChiusuraNF" & Format(NumPag, "00") + ".html"
            WebBrowser1.Navigate(filename)
            Application.DoEvents()
            Threading.Thread.Sleep(20)
            Do While WebBrowser1.IsBusy
                Application.DoEvents()
            Loop
            WebBrowser1.Print()
        Next
    Else
        Me.annostat.Text = ""
        Me.Close()
        Exit Sub
    End If
End Sub
Ultima modifica effettuata da Carlo 26/06/20 16:34
in programmazione tutto è permesso
26/06/20 17:07
gnapolitano@teletu.it
Buonasera,Carlo.Grazie.Le sue argomentazioni sono logiche ,come funzionante è la soluzione indicata!
In effetti,grazie alla mie scarse conoscenze,era convinto che ShowPageSetupDialog includesse anche la fase di stampa del documento e non solo il settaggio!
Grazie ancora. Sbagliando … ho imparato una cosa in più.
26/06/20 17:25
Carlo
Gli ShowDialog, non si comportano tutti allo stesso modo, e la logica d'uso non è sempre la stessa, però una volta che ci si è scontrati non si dimentica più.
in programmazione tutto è permesso
27/06/20 15:36
gnapolitano@teletu.it
Sì, è vero.
Infatti, da ieri sera, proprio a seguito del suo assunto ("Gli ShowDialog, non si comportano tutti allo stesso modo…";) sto provando ancora una volta l'ebrezza dell'insuccesso con ShowPrintPreviewDialog!!!
Buona serata.