Impression crystal report

Fermé

hafsis Messages postés 3 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 17 mai 2013 - 15 mai 2013 à 20:33
hafsis Messages postés 3 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 17 mai 2013 - 17 mai 2013 à 16:17

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

A voir également:

Impression crystal report
Spouleur d'impression - Guide
Crystal report download - Télécharger - Présentation
Crystal disk - Télécharger - Informations & Diagnostic
Crystal report viewer - Télécharger - Gestion de données
Crystal disk mark - Télécharger - Divers Utilitaires

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 mai 2013 à 15:13

Bonjour,

Sans voir votre code, pas de reponse possible.

Réponse 2 / 3

hafsis Messages postés 3 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 17 mai 2013
16 mai 2013 à 23:27

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

Réponse 3 / 3

hafsis Messages postés 3 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 17 mai 2013
17 mai 2013 à 16:17

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

Discussions similaires

Logiciel équivalent à Crystal Disk Info pour Mac.

Transparence en tete et bas de page

Bordereau code barre caché en rouge

exemplaire

Discussions similaires

Newsletters