Impression crystal report

hafsis Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
hafsis Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

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

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Sans voir votre code, pas de reponse possible.

Réponse 2 / 3

hafsis Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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 Statut Membre Dernière intervention

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.

Historique d'impression

Ou trouver l'historique d'impression ?

Votre réponse

Discussions similaires