Discussion :

[Nico118]

Bonjour,

J'ai créé une petite application en VB.NET qui utilise une base de données Access ainsi que quelques états Crystal Report (avec CR9). Pour visualiser mes rapports j'ai créé une form avec un composant CrystalReportViewer. Aucun problème pour visualiser le bon rapport, mettre à jour les données ou même pour les imprimer mais à une condition : demander qu'un seul exemplaire de l'état. Je m'explique. J'ai par exemple un état qui s'imprime sur une ou plusieurs pages, lorsque je clique sur le bouton imprimer du composant CrystalReportViewer, j'ai bien la boite de dialogue impression Windows qui apparait, je peux choisir mon imprimante, les pages que je veux imprimer (de x à y) ou le nombre de copies que je veux. C'est au niveau du nombre de copies que j'ai un problème.

Lorsque je veux imprimer une fois mon état, il sort une fois : c'est normal.
Lorsque je veux trois copies de mon état, il sort neuf fois : pas normal.

J'ai ce problème lorsque j'imprime sur une imprimante physique (j'ai testé plusieurs imprimantes HP ou Epson) mais lorsque j'imprime sur une imprimante virtuelle (par exemple une imprimante doPDF) j'ai bien le bon nombre de copies.

Mon appli a été compilée sur deux versions de Visual Studio (2002 et 2010) avec le même résultat.

Est ce que quelqu'un a déjà été confronté à ce genre de problème?
Est il possible de contrôler le comportement du bouton imprimer du CrystalReportViewer ?

Merci d'avance pour vos réponses

[yochima]

Bonjour,

c'est effectivement bien etrange. Lorsque ça imprime 9 fois, c'est apres avoir fais quelques test? ou tu essayes dès le lancement de ton application? En fait ça fait pensé que tu ne vide pas ton crystal report viewer. Mais vu que l'on voit visuellement seulement le premier exemplaire, peut etre que derriere 8 autres attendent.

lorsque tu remplis ton crystal report,
fais-tu bien ces 3 etapes?

Code :

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

1
2
3
4
 
rapport1.SetDataSource(ObjetDataSet)
CrystalReportViewer1.ReportSource = rapport1
CrystalReportViewer1.Refresh()

Si jamais ça ne te depanne pas, peut etre qu'un simple

Code :

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

1
2
 
rapport1.PrintToPrinter(1, False, 0, 0)

te dépannerais temporairement

a+

[Nico118]

Bonjour,

ça me le fait dès le lancement (dès la première impression), par contre c'est vrai que je ne fait pas de Refresh. J'en ai rajouté un mais ça ne change rien.

Voici 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
' fonction d'exécution d'un etat crystal report, prend en paramètre le nom de l'état, sa formule de sélection, le titre de la fenetre où s'affiche l'état et un booléen pour afficher ou pas l'arborescence de groupe
Public Shared Sub Exec_Rapport(ByVal Nom_Rapport As String, ByVal Formule_Selection As String, ByVal Titre_Fenetre As String, ByVal Montrer_Arbre As Boolean)
Dim frm As New Fiche_Impression()
frm.MdiParent = Form.ActiveForm
Dim i As Integer = 0
Dim Res As Integer = 0
frm.CrystalReportViewer1.ReportSource = System.IO.Path.GetDirectoryName(Application.ExecutablePath) & "\Etats\" & Nom_Rapport
 
Try
For i = 0 To frm.CrystalReportViewer1.LogOnInfo.Count() - 1 Step 1
frm.CrystalReportViewer1.LogOnInfo.Item(i).ConnectionInfo.ServerName = System.IO.Path.GetDirectoryName(Application.ExecutablePath) & "\Pieces_CPLF.mdb"
 
frm.CrystalReportViewer1.LogOnInfo.Item(i).ConnectionInfo.UserID = "Admin"
 
Next
frm.CrystalReportViewer1.SelectionFormula = Formule_Selection
frm.CrystalReportViewer1.DisplayGroupTree = Montrer_Arbre
frm.CrystalReportViewer1.Refresh()
frm.CrystalReportViewer1.ShowFirstPage()
frm.Text = Titre_Fenetre
frm.Visible = True
Catch ex As Exception
Res = MsgBox("Erreur lors du chargement du rapport " & Nom_Rapport & " : " & ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Gestion du Stock")
End Try
End Sub

Ce qui est étrange c'est que l'impression d'un seul exemplaire fonctionne, plusieurs fois un seul exemplaire aussi mais plusieurs exemplaires en une seule fois ça cafouille.

Merci pour votre aide.