bonjour,

comment puis-je imprimer sur 2 pages .......
je ne comprend pas comment utiliser HASMOREPAGE
note:ObjetDataTable.Rows.Count - 1=12
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
 For i = 0 To ObjetDataTable.Rows.Count - 1
 
            e.Graphics.DrawString(ObjetDataTable.Rows(i).Item("N°ligne").ToString, Ft1, New SolidBrush(Color.Black), 10, x)
            e.Graphics.DrawString(ObjetDataTable.Rows(i).Item("Immatriculation").ToString, Ft1, New SolidBrush(Color.Black), 70, x)
            e.Graphics.DrawString(ObjetDataTable.Rows(i).Item("Nom-de-lassuré").ToString, Ft1, New SolidBrush(Color.Black), 220, x)
            e.Graphics.DrawString(ObjetDataTable.Rows(i).Item("Prenom-de-lassuré").ToString, Ft1, New SolidBrush(Color.Black), 380, x)
            e.Graphics.DrawString(ObjetDataTable.Rows(i).Item("Date-Naissance").ToString, Ft1, New SolidBrush(Color.Black), 530, x)
            e.Graphics.DrawString(Val(ObjetDataTable.Rows(i).Item("Montant-générale")).ToString("000.00"), Ft1, New SolidBrush(Color.Black), 770, x)
            x += 110
            MsgBox("x= " & x)
 
 
            If x = 880 Then
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If
 
        Next
merci de m'aider.