Impression crystal report Fermé

Question

Bonjour tout le monde
est ce que quelqu'un peux m'aider à résoudre ce problème? 
J'ai créer une forme contenant deux boutons pour imprimer deux états crystal différents,quand je lance la première je n'ai aucun problème,je visualise l'état et je l'imprime puis je la ferme avec l'appércu de l'impression de crystal,mais une fois je lance la deuxième états après le visualisation et l'impression,vb6 se bloque complétement.j'utilise vb6 et crystalreport 4.6.1.0
merci d'avance pour vos conseils

f894009 · Answer

Bonjour,

Sans voir votre code, pas de reponse possible.

hafsis · Answer

Private Sub Option1_Click()
chargement
End Sub

Private Sub Option2_Click()
chargement
End Sub

Sub chargement()
If Option1.Value = True Then
   Data1.RecordSource = "SELECT Tsa.Liste, Tsa.DtListe FROM Tsa GROUP BY Tsa.Liste, Tsa.DtListe HAVING (([Tsa]![Liste]>0)) ORDER BY Tsa.Liste DESC;"
   Data1.Refresh
End If
If Option2.Value = True Then
   Data1.RecordSource = "SELECT * from Tsa where isnull(Tsa.dtliste)=false ORDER BY Tsa.Liste DESC;"
   Data1.Refresh
End If
If Data1.Recordset.RecordCount > 0 Then
   Cmdimp.Enabled = True
   Else
   Cmdimp.Enabled = False
End If
End Sub

Private Sub Cmdimp_Click()
If Option1.Value = True Then
   CrystalReport1.SelectionFormula = "{Tsa.liste} = " & Data1.Recordset.Fields("Liste") & " "
   CrystalReport1.Action = 1
End If
If Option2.Value = True Then
   CrystalReport2.Action = 1
End If
End Sub

hafsis · Answer

rivate Sub Option1_Click()
chargement
End Sub

Private Sub Option2_Click()
chargement
End Sub

Sub chargement()
If Option1.Value = True Then
Data1.RecordSource = "SELECT Tsa.Liste, Tsa.DtListe FROM Tsa GROUP BY Tsa.Liste, Tsa.DtListe HAVING (([Tsa]![Liste]>0)) ORDER BY Tsa.Liste DESC;"
Data1.Refresh
End If
If Option2.Value = True Then
Data1.RecordSource = "SELECT * from Tsa where isnull(Tsa.dtliste)=false ORDER BY Tsa.Liste DESC;"
Data1.Refresh
End If
If Data1.Recordset.RecordCount > 0 Then
Cmdimp.Enabled = True
Else
Cmdimp.Enabled = False
End If
End Sub

Private Sub Cmdimp_Click()
If Option1.Value = True Then
CrystalReport1.SelectionFormula = "{Tsa.liste} = " & Data1.Recordset.Fields("Liste") & " "
CrystalReport1.Action = 1
End If
If Option2.Value = True Then
CrystalReport2.Action = 1
End If
End Sub

Impression crystal report

3 réponses

Discussions similaires