Mise en forme des données

Version imprimable

Bonjour à tous,

je suis en train de coder un module d'impression, et je veux mettre en forme les données directement en VB.NET

J'ai un problème concernant la lecture des lignes de ma requête, je ne sais pas comment faire..

Voilà ma requête:
Code:

1 2 3 4 5 6 7 8 If debut = 1 Then Dim req As String req = "select ID, NOM, PRENOM from CLIENT" Dim cmd As New OleDbCommand(req, maconnexion) rdr = cmd.ExecuteReader() rdr.Read() numpage = 1 End If
Et c'est là que je bloque, comment récupérer les données issues de la requête:
Code:

1 2 3 4 5 6 7 While count < linesPerPage line = ???????? If line Is Nothing Then Exit While yPos = ev.MarginBounds.Top + count * f.GetHeight(ev.Graphics) ev.Graphics.DrawString(line, f, Brushes.Black, ev.MarginBounds.Left, yPos, New StringFormat()) count += 1 End While
Merci pour votre aide! :ccool:

Bonjour

place le code du if de ta requette dans une fonction qui rend un OleDbDataReader

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 private Function GetListName() As OleDbDataReader
 
        Dim recordset As OleDbDataReader
        recordset = Nothing
        req = "select ID, NOM, PRENOM from CLIENT"
       Dim cmd As New OleDbCommand(req, maconnexion)
        Try
            recordset = cmd.ExecuteReader
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return recordset
End Function

Code:

1
2
3
4
5
6
7
8
9
10
private  recordset As OleDbDataReader  
 
private sub show()
  recordset = GetListName
   While recordset.Read
     yPos = ev.MarginBounds.Top + count * f.GetHeight(ev.Graphics)
            ev.Graphics.DrawString(line, f, Brushes.Black, ev.MarginBounds.Left, yPos, New StringFormat())
   end while
 
end sub

Bonjour,

Comme la partie impression de page est activé par un évènement, il faut déclarer le reader en private hors de la méthode btnImprimer_Click (comme printFont d'ailleur)

String.Format permet de formater une ligne (tu pourrais aussi rajouter le numéro de ligne par exemple)
PadRight permet d'avoir un même nombre de caractère sur la chaîne en retour
Je ne sais de quel type est ton ID j'ai mis un exemple avec un entier (reader.GetInt32) pour la lecture, si c'est une string regarde les valeurs suivantes.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
    Private printFont As Font
    Private reader As OleDbDataReader
 
    Private Sub btnImprimer_Click(sender As System.Object, e As System.EventArgs) Handles btnImprimer.Click
        ' tes éléments de requete
        ' ...
            Try
                Dim prdoc As New System.Drawing.Printing.PrintDocument()
                printFont = New Font("Courier New", 10) ' utilise une police non proportionnelle qui permet la régularité des caractères pour l'affichage
                reader = cmd.ExecuteReader()
                AddHandler prdoc.PrintPage, AddressOf Me.prdoc_PrintPage
                If reader.HasRows Then
                    reader.Read() ' pour être prêt 
                    prdoc.Print()
                Else
                    MessageBox.Show("Aucune ligne.")
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
            reader.Close()
    End Sub
 
    ' L'évènement PrintPage est envoyé pour chaque page qui doit être imprimée.
    Private Sub prdoc_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)
        Dim linesPerPage As Single = 0
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim UneLigne As String = Nothing
        Dim bLigne As Boolean = True ' présence d'autres éléments à lire
 
        ' Calcule le nombre de ligne par page.
        linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
 
        ' Iprime chaque ligne issu de la BDD.
        While count < linesPerPage And bLigne
            UneLigne = String.Format(" {0}  {1}  {2} ", reader.GetInt32(0).ToString.PadRight(10), reader.GetString(1).PadRight(30), reader.GetString(2).PadRight(30)) ' constitue la ligne avec espacement régulier
            yPos = ev.MarginBounds.Top + count * printFont.GetHeight(ev.Graphics)
            ev.Graphics.DrawString(UneLigne, printFont, Brushes.Black, ev.MarginBounds.Left, yPos, New StringFormat())
            count += 1
            bLigne = reader.Read ' la lecture du reader indique s'il y a d'autres éléments en bBDD
        End While
 
        ' d'autres éléments de la BDD?, une autre page à imprimer.
        If bLigne Then ev.HasMorePages = True Else ev.HasMorePages = False
    End Sub

Au fait, pense à marquer ta discussion précédante en résolue s'il-te-plait.

28/01/2014, 15h48
beber12
Merci beaucoup pour cette aide! :ccool:

J'aimerais maintenant ajouter une image:
Code:

1 2 Dim img As Image = Image.FromFile("img.png") ev.Graphics.DrawImage(img, xpos + largeurcol, ypos + 15)
Mais l'IDE m'indique que: "Image est ambigu, importé des espaces de noms ou des types 'Microsoft.Office.Interop.Access, System.Drawing' "
31/01/2014, 12h58
rv26t

Tu dois avoir les 2 références, écrit :

Code:

Dim img As System.Drawing.Image = System.Drawing.Image.FromFile("img.png")
01/02/2014, 16h09
beber12

Merci rv26t, ce problème est résolu.

Maintenant, je souhaite afficher des informations que je suis allé récupérer dans la base de données sur une ou plusieurs lignes.

Ceci est le libellé de l'article; j'aimerais qu'il y ait un retour automatique à la ligne si ce libellé dépasse 100 caractères par exemple.

Code:

ev.Graphics.DrawString(tableau(i, 1), f, Brushes.Black, xpos + 100, ypos + 35)

Merci pour votre aide.

J'ai testé cette solution:

Code:

1
2
3
4
5
6
7
8
9
Dim a As String
            Dim b As String
            Dim c As String
            a = tableau(i, 1)
            If a.Length > 50 Then
                b = a.Substring(0, 50)
                c = a.Substring(50, a.Length)
                ev.Graphics.DrawString(b, f, Brushes.Black, xpos + 80, ypos + 50)
            End If

Mais apparement il n'arrive pas à récupérer le dernier caractère..

Merci

05/02/2014, 12h09
rv26t

Code:

c = a.Substring(50, a.Length - 50)

Le 2ème paramètre indique la longueur, il faut donc enlever la partie non prise en compte du début puisque nous démarrons à 50.

Mais dans ce cas les mots seront coupés arbitrairement.
Ex avec la phrase du dessus

Citation:

Mais dans ce cas les mots seront coupés arbitraire
ment.
05/02/2014, 14h23
beber12

Merci,

Est-il possible du coup de mieux organiser la découpe, pour que cela n'arrive pas?
06/02/2014, 00h12
rv26t

Oui,
il faut remonter dans les caractères jusqu'à un espace.
Quelles est la longueur de tes lignes ?
si c'est 100 maxi commence à 55 (c'est une suggestion pour que la plupart du temps la 1ère ligne soit plus grande que la 2ème) et revient en arrière caractère par caractère jusqu'à un espace, tu auras le lieu où tronquer.
07/02/2014, 15h25
beber12

Merci pour ton aide rv26t! :ccool:
26/02/2014, 16h26
beber12

Je décrit ma page à l'aide de ev.Graphics.Draw.... et j'aimerais bien aller écrire sur une deuxième page, mais je ne sais pas comment faire..?

Merci pour votre aide!
26/02/2014, 17h03
_Ez3kiel

A chaque problème son topic. ;)