Discussion :

[GodGives]

Bonjour!

J'ai crée un état en Crystal Reports que je manipule à partir de VB.

J'aimerais faire une impression du même état en série sans que l'utilisateur n'ait la possiblité de le voir.

Donc après l'ouverture, j'écris une instruction pour imprimer l'état. voici la portion du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            Set crxReport = crxApplication.OpenReport(App.Path & "\Etats\bon de transport.rpt")
            e_bontrans.Show
            e_bontrans.crviewer.PrintReport

Mais à l'exécution, il m'envoie cette erreur:

La méthode 'PrintReport' de l'objet 'ICrystalReportViewer11' a échoué.

J'utilise le vb6 et le crystal reports 11.

Merci pour votre apport!!!

[GodGives]

Après quelques recherches, la réponse a fini par se faire connaitre!

Voilà le fameux code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim crxReport As New CRAXDDRT.Report
Dim crxApplication As New CRAXDDRT.Application
 
Set crxReport = New CRAXDDRT.Report
Set crxApplication = New CRAXDDRT.Application
 
Set crxReport = crxApplication.OpenReport(App.Path & "\Etats\bon de transport.rpt")
 
crxReport.DiscardSavedData
crxReport.ReadRecords
crxReport.PrintOut False, numberOfCopy:=1 ' false permet de ne pas afficher la boîte de dialogue de l'imprimante

Merci à tous!!!