Discussion :

[peace-to-you]

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.

[Pol63]

si tu mets hasmorepage à true je crois que ca rappelle le meme évènement, donc c'est toi au début de l'évent de savoir à quelle page tu en es

[peace-to-you]

si tu mets hasmorepage à true je crois que ca rappelle le meme évènement, donc c'est toi au début de l'évent de savoir à quelle page tu en es

pouvez-vous corriger le code Je suis débutant en vb.net

[Pol63]

tu peux nous mettre la sub complète ?

[peace-to-you]

tu peux nous mettre la sub complète ?

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim PrintPreviewDialog1 As New PrintPreviewDialog
        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.WindowState = FormWindowState.Maximized
        PrintPreviewDialog1.ShowDialog()
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim x As Integer = 0
 
        Dim Ft1 = New Font("Times New Roman", 14, FontStyle.Regular)
 
 
 
 
 
        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
 
 
 
 
 
 
 
 
    End Sub

[Pol63]

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
32
private i as integer = 0
private x As Integer = 0 ' ca serait pas plutot un y ???
private Ft1 = New Font("Times New Roman", 14, FontStyle.Regular)
 
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
 
        For i = i 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
                i = 0 
                x = 0
            End If
 
        Next
 
 
     End Sub