Discussion :

[mehdiyou]

Salut tout le monde, j'ai un petit problème avec une application que je suis en train d'implémenter. Je voudrai faire une impression de plusieurs reçu dont le contenu existe dans un DataGridView. J'ai pu faire une impression du DataGrid, J'ai pu faire l'impression du reçu avec les données de la 1ère ligne du DataGrid. Le problème c'est que la boucle For ne fonctionne qu'avec la première ligne de la liste !!!! j'espère que vous pourrez m'aider. Merci d'avance

[tomlev]

j'espère que vous pourrez m'aider

Si tu ne nous montres pas le code qui pose problème, ce sera difficile...

[mehdiyou]

salut. voici le code de l'impression que j'ai utilisé:
1- Le bouton "imprimer bon".

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
    Private Sub Imprimer_Bon_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimer_Bon.Click
        If Setup() Then
 
            Pdoc.DefaultPageSettings.Landscape = False
            PTDial.Document = Pdoc
            PTDial.WindowState = FormWindowState.Maximized
            PTDial.ShowDialog()
 
            If Me.PTDial.ShowDialog() = DialogResult.Cancel Then
                Exit Sub
            End If
 
            Dim MyPrintPreviewDialog As New PrintPreviewDialog()
 
            MyPrintPreviewDialog.Document = Pdoc
            MyPrintPreviewDialog.ShowDialog()
 
            If MyPrintPreviewDialog.ShowDialog() = DialogResult.Cancel Then
                Exit Sub
            End If
        End If
    End Sub

2- Procédure Pdoc_PrintPage liée à l'autre procédure:

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
26
27
28
29
30
31
 Private Sub Pdoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Pdoc.PrintPage
        Dim x As String
        Dim i As Integer
        For i = 0 To DataGridView1.RowCount - 1
 
            NumAvance = DataGridView1.Item(0, i).Value.ToString
            Matricule = DataGridView1.Item(1, i).Value.ToString
            Nom = DataGridView1.Item(2, i).Value.ToString
            Prenom = DataGridView1.Item(3, i).Value.ToString
            Montant = DataGridView1.Item(5, i).Value.ToString
            DateSaisie = DataGridView1.Item(6, i).Value.ToString
 
            x = Montant.ToString.Substring(0, 3)
            e.Graphics.DrawImage(BDP.Image, 2, 2)
            e.Graphics.DrawString("Emis le:  " & DateSaisie.Substring(0, 10), New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 483, 153)
            e.Graphics.DrawString("Valable au:  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 483, 195)
            e.Graphics.DrawString("N°:   " & NumAvance, New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 557, 297)
            e.Graphics.DrawString("TUD:  " & Format(Montant, "000 000"), New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 557, 335)
            e.Graphics.DrawString("Arrêté à la somme de:  " & Fc.traduire(x) & " dinars", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 335)
            e.Graphics.DrawString("Bénéficiare:  " & Nom & "  " & Prenom & "                        Matricule:   " & Matricule, New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 420)
            e.Graphics.DrawString("Objet de la Dépense: Avance sur salaire ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 446)
            e.Graphics.DrawString("Octroyée le:  " & DateSaisie.Substring(0, 10), New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 557, 446)
            e.Graphics.DrawString("Nbre de Mensualité: 1 ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 491)
            e.Graphics.DrawString("Visa et cachet  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 595)
            e.Graphics.DrawString("D.C.R.H  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 610)
            e.Graphics.DrawString("Mle et Visa  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 260, 595)
            e.Graphics.DrawString("du caissier  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 260, 610)
            e.Graphics.DrawString("Signature du Bénéficiaire  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 470, 595)
            e.Graphics.DrawString("Imputation Comptable  ", New Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 55, 743)
        Next
    End Sub

[tomlev]

Bon, je connais pas le composant PrintDocument, j'ai jamais utilisé... Mais déjà j'ai l'impression que tu écris toujours au même endroit à chaque passage de la boucle (même coordonnées dans les DrawString).

Je te conseille de regarder l'exemple dans la doc de l'évènement PrintPage, parce que là je ne pense pas que tu t'y prennes comme il faut...

Ah, et aussi :

Code :

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

1
2
3
            If MyPrintPreviewDialog.ShowDialog() = DialogResult.Cancel Then
                Exit Sub
            End If

Ce code ne sert à rien, vu que de toutes façons la procédure se termine juste après le If...