[VB6] Problemi con stampa report Crystal Report 8.5 da codice VB

[Icewind]

Salve a tutti ho un piccolo problema con le stampe in vb...
Ho creato il mio ODBC, il report ecc..

Quando però lacio dal stampa da codice vb non mi viene mostrato nesusn errore ma il report mi compare bianco.
Se però apro manualmente il report, eseguo il refresh e prova a rilanciare la stampa da programma mi visualizza correttamente l'antemprima di stampa del report.
Da cosa può dipendere? questo è il codice che utilizzo:

Private Sub cmdStampa_Click()

Dim toScreen As Boolean


On Error GoTo checkerrore

toScreen = True

With cryInter


        .ReportFileName = App.Path + "\Richiesta_Reparto.rpt"
        

         .Connect = "FDSN=NomeFDSN;UID=Utente;PWD=Password"

    
        .SelectionFormula = "{Richieste.Numero}='" & TxtIdenRich.Text & "'"

    If toScreen Then
        .Destination = crptToWindow
    Else
        .Destination = crptToPrinter
    End If

    .WindowState = crptMaximized
    .Action = 1

End With

Exit Sub

checkerrore:     Call Errore

End Sub

[LeleFT]

Alcune considerazioni:

1) Visual Basic ha il suo forum dedicato.
2) Il titolo deve dare una breve descrizione del problema di cui si parla... se si indica semplicemente "Problema con..." non si capisce nulla del contenuto.
3) Il codice va postato all'interno dei tag [code] e [/code] in modo da renderlo leggibile.

Tutto questo è indicato nel Regolamento, che ti invito a leggere.

Sistemo il tutto e sposto la discussione nel forum corretto.


Ciao.