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:

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