Discussion :

[PrincessKC]

Bonjour à tous,

j'ai reinstallé mon applicaction vb6 sur des machines windows 7;

chez moi,ça marche ,par contre chez un des clients, on n'arrive pas du tout à voir (aperçu) et faire des impressions.

pour l'impression,j'utilise le composant crystalreport;

voici un bout de mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub CmdImprimer_Click()
       On Error Resume Next
 
       Dim dbs As Database, rst As Recordset
       Dim VMessage, VRéponse, VStyle, VTitre
       Dim MonRésultat
 
      ...
 
    ImpCrystalReport.ReportFileName = g_strChemin_Etat & ListeEtats
 
    ImpCrystalReport.DataFiles(0) = g_strChemin_Base
    ImpCrystalReport.WindowTitle = "Impression de " & ListeEtats
    ImpCrystalReport.WindowState = crptMaximized
    ImpCrystalReport.WindowShowZoomCtl = True
    ImpCrystalReport.WindowShowExportBtn = True
    ImpCrystalReport.WindowShowCancelBtn = True
    ImpCrystalReport.WindowShowNavigationCtls = True
    ImpCrystalReport.WindowShowPrintSetupBtn = True
    ImpCrystalReport.WindowShowProgressCtls = True
    ImpCrystalReport.Destination = 0 ' Aperçu
 
    MonRésultat = ImpCrystalReport.PrintReport
 
    If MonRésultat <> 0 Then
      VMessage = "L'impression de cet état est interrompu par un problème non identifié."
       VStyle = vbOKOnly + vbCritical
       VTitre = "Impression"
       VRéponse = MsgBox(VMessage, VStyle, VTitre)
 
End Sub

ImpCrystalReport c'est le composant crystalreport.

chez le client,c'est le message d'erreur qui s'affiche:

Code :

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

 VMessage = "L'impression de cet état est interrompu par un problème non identifié."

j'ai reinstallé toutes les dll et ocx de mon projet vb6 et meme crystal report sur la machine du client mais rien n'y fait!

si quelqu'un a une idée?

merci d'avance

[iclic]

Bonjour,

Je ne connais pas crystalreport mais tu devrais déjà mettre en rem
l'instruction suivante

Code :

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

1
2
 
On Error Resume Next

qui cache peut-être sur quelle ligne se trouve la véritable erreur.

[ProgElecT]

Salut
La phrase d'erreur c'est toi qui la construite, cela ne te/nous donne pas d'indication, récupères plutôt le message renvoyé par Err.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CmdImprimer_Click()
       On Error GoTo GestErr 'en debut de Sub
'...........
'...........
'en fin de Sub
Exit Sub
GestErr:
      VMessage = Err.Number & vbCrLf & Err.Description '"L'impression de cet état est interrompu par un problème non identifié."
      VStyle = vbOKOnly + vbCritical
      VTitre = "Impression"
      VRéponse = MsgBox(VMessage, VStyle, VTitre)
End Sub

[PrincessKC]

@ProgElecT,

j'ai implementé le code, voici l'erreur qu'il me met:

Code :

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

1
2
3
 
Erreur de compilation:
Etiquette non definie

franchement je ne vois pas de quoi il s'agit?!

[ProgElecT]

Étiquette correspond au branchement goto GestErr, donc apparemment tu n'as pas copier/coller

Code :

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

1
2
3
4
5
GestErr:
      VMessage = Err.Number & vbCrLf & Err.Description '"L'impression de cet état est interrompu par un problème non identifié."
      VStyle = vbOKOnly + vbCritical
      VTitre = "Impression"
      VRéponse = MsgBox(VMessage, VStyle, VTitre)

[DarkVader]

Bonjour,
As-tu essayé avec

Code :

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

1
2
3
4
5
6
7
8
.../...
    If MonRésultat <> 0 Then
      VMessage =ImpCrystalReport.LastErrorString     
       VStyle = vbOKOnly + vbCritical
       VTitre = "Erreur - Impression"
       VRéponse = MsgBox(VMessage, VStyle, VTitre)
    Endif
End Sub

?

[PrincessKC]

si si j'ai copier/coller

par contre je n'avais pas mis le exit sub;

apres correction, le message d'erreur (que j'ai implementé) s'affiche toujours sans plus;

[PrincessKC]

@darkvader,
ok, j'essaie le code et je te fais le retour.

[PrincessKC]

@darkvader,
désolée pour ce retard independant de ma volonté.

j'ai implementé le code et il m'affiche:" F ".

PS: sur la machine du client,VB6 se plante souvent
par contre sur la mienne,j'ai aucun probleme