Impression crystal report
hafsis
Messages postés
3
Statut
Membre
-
hafsis Messages postés 3 Statut Membre -
hafsis Messages postés 3 Statut Membre -
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
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
3 réponses
-
Bonjour,
Sans voir votre code, pas de reponse possible. -
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 -
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
