Précédent   Forum des professionnels en informatique > Logiciels > Solutions d'entreprise > Business Intelligence > Crystal Reports > SDK
SDK Forum sur l'utilisation de Crystal Reports par des API (VB, C++, Delphi, Java, etc.)
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/12/2007, 13h09   #1
Membre habitué
 
Avatar de GodGives
 
Inscription : août 2007
Messages : 456
Détails du profil
Informations personnelles :
Âge : 27

Informations forums :
Inscription : août 2007
Messages : 456
Points : 121
Points : 121
Envoyer un message via Yahoo à GodGives
Par défaut Imprimer un etat crystal reports à partir de VB

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

Citation:
La méthode 'PrintReport' de l'objet 'ICrystalReportViewer11' a échoué.
J'utilise le vb6 et le crystal reports 11.

Merci pour votre apport!!!
GodGives est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 10/12/2007, 11h17   #2
Membre habitué
 
Avatar de GodGives
 
Inscription : août 2007
Messages : 456
Détails du profil
Informations personnelles :
Âge : 27

Informations forums :
Inscription : août 2007
Messages : 456
Points : 121
Points : 121
Envoyer un message via Yahoo à GodGives
Après quelques recherches, la réponse a fini par se faire connaitre!

Voilà le fameux code:

Code :
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!!!
GodGives est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h14.


 
 
 
 
Partenaires

Hébergement Web