[VB.NET]CrystalReportViewer et impression multiple

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 :P

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:

---

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:

---

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

---

te dépannerais temporairement

a+

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:

---

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.