Bjr tout le monde,je récupre une adresse client "234 rue bourdeaux etage 3 paris" à partir d'un gridview et je veus dans l'impression qu'il soit diviser comme ceci:
la première ligne en 4 parties: 234 rue bourdeaux etage
et la deuxième ligne 3 paris.le code est juste si l'adresse est constitué de 8 bloc mais il me donne erreur si l'adresse est inférieur à 8.
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
 
 Dim icrment1 As Integer = 315
            Dim D1 As String()
            Dim pp = Split(Str_Info_adresse, " ")
            Dim sss As String = ""
            For u = 0 To pp.Length - 1
                If pp(u) <> "" Then
                    If u = 0 Then
                        sss = pp(u).ToString
                    Else
                        sss = sss + "," + pp(u).ToString
                    End If
                End If
            Next
            D1 = Split(sss, ",")
            For i = 0 To (D1.Length) - 1 Step 4
                If Not String.IsNullOrEmpty(D1(i)) Then
                    If i = 0 Then
                        ev.Graphics.DrawString(ajouterEspaces(27) & D1(i) & ajouterEspaces(2) & D1(i + 1) & ajouterEspaces(2) & D1(i + 2) & ajouterEspaces(2) & D1(i + 3), New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 0, icrment1, New StringFormat())
                        icrment1 = icrment1 + 15
                    Else
                        ev.Graphics.DrawString(ajouterEspaces(27) & D1(i) & ajouterEspaces(2) & D1(i + 1) & ajouterEspaces(2) & D1(i + 2) & ajouterEspaces(2) & D1(i + 3), New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 0, icrment1, New StringFormat())
                        icrment1 = icrment1 + 15
                    End If
 
                End If
            Next
Comment peux je résoudre ce problème.
Merci d'avance