[VB6]: DataReport: chiusura automatica dopo la stampa

[Bruno66]

Ciao, il titolo mi sembra abbastanza chiaro, devo chiudere automaticamente un report (parlo di datareport), dopo che è stato stampato.

Deve funzionare sia se la stampa avviene a seguito anteprima (datareport.show) che a seguito di stampa diretta (datareport.PrintReport False, rptRangeAllPages)

Non so che evento scatturisca la stampa, e non so che metodo applicare.

Grazie.

[LMondi]

Bruno66, non mi sembra che la tua domanda sia chiara sopratutto se si considera

...che a seguito di stampa diretta (datareport.PrintReport False, rptRangeAllPages)

In quest'ultimo caso che cosa intendi per chiusura del DR se non c'è l'anteprima ?

[Bruno66]

si è vero, in quale caso non aprendo nessuna finestra non dovrebbe essere necessario chiuderla, ma nell'altro caso?

[LMondi]

Ma ti dirò che anche nell'altro caso ha poco senso, perchè o vuoi l'anteprima e quindi scrivi il codice DRProva.Show e non inserisci Unload Me (o Unload DRProva, secondo dove ti trovi, se nel modulo del DR o in altro modulo bas), altrimenti per un attimo si evidenzia l'anteprima per poi venire chiusa o, viceversa, stampi direttamente con il codice che conosci ed hai già evidenziato.
Nel secondo caso (stampa senza anteprima), per mia esperienza, dopo DRDiff.PrintReport False, rptRangeAllPages
è bene inserire Unload Me.

[Bruno66]

senza dilungarmi troppo, per esigenze particolari , apro un gran numero di datareport insieme. Ora per facilitare l'uso, sarebbe opportuno che dopo la stampa il datareport si chiudesse da solo. Come faccio ? Quale evento intercetto ?

[LMondi]

Allora usa DRProva.PrintReport False, rptRangeAllPages
Unload Me
Così va direttamente in stampa senza altri fronzoli.
Sarabbe opportuno, però, inserire un controllo degli errori del tipo:

' Stampa del documento senza anteprima:
Public Sub StampaDRProva_Load()
On Error GoTo ErrHandler
...
...


ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Description & Chr(13) _
        & "Si è verificato un errore nella procedura di stampa." & Chr(13) _
        & "Ripetere l'operazione.", vbInformation, "Stampa ......."
        Err.Clear
        Exit Sub
    End If

[Bruno66]

grazie del suggerimento, ma il problema rimane.
Devo dare entrambe le possibilità, e ancora non ho capito se esiste un evento tipo after print, o qualcosa del genere, tale da consentirmi di fare "unload" all'interno di tale evento.

cmq grazie......