Discussion :

[oshigamie]

Bonjours voila j'ai coder mon tableau en itextsharp . il et récupérer d'un datagridview .

Mais voila lorsque le tableau apparaît sur mon pdf ls 3 cellule de l’entête son de taille égale . et je voudrais pouvoir leur assigner une taille par moi même .

voici mon code

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
 pdfTable.DefaultCell.BackgroundColor = BaseColor.WHITE
            pdfTable.DefaultCell.Padding = 5
            pdfTable.WidthPercentage = 100
            pdfTable.HorizontalAlignment = Element.ALIGN_LEFT
            pdfTable.DefaultCell.BorderWidth = 0
 
 
 
 
            ''Adding Header row
            For Each column As DataGridViewColumn In FormDEVIS.DgDevis.Columns
                Dim cell As New PdfPCell(New Phrase(column.HeaderText))
                cell.BackgroundColor = New BaseColor(240, 240, 240)
                cell.HorizontalAlignment = 1
 
                pdfTable.AddCell(cell)
            Next
 
            ''Adding DataRow
 
            For Each row As DataGridViewRow In FormDEVIS.DgDevis.Rows
                For Each cell As DataGridViewCell In row.Cells
                    If cell.Value = vbNullString Then
 
                    Else
                        pdfTable.AddCell(cell.Value.ToString())
                    End If
 
 
                Next
            Next

[chrismonoye]

Bonsoir,
il faut regarder du coté de maPdfTable.SetWidths.
Si votre DGV (DataGridView) plait à l’œil, c'est qu'il est sans doute bien conçu et vous pourrez donc vous inspirer de ses proportions pour le communiquer à votre PDF :

Code :

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

1
2
3
4
5
6
        'Récupération des largeurs de colonnes définies dans le DGV pour proportionner les colonnes sur la table.
        Dim widths(DGV.Columns.Count - 1) As Integer
        For Each col As DataGridViewColumn In DGV.Columns
            widths(col.Index) = col.Width
        Next
        pdfTable.SetWidths(widths)

Les colonnes seront proportionnellement affichées en fonction de la largeur allouée à la table.
(Il est possible, aussi, de fixer les largeurs des colonnes en dur.)

[oshigamie]

Merci beaucoup . Mais un toute dernière question Comment je peut faire avec cette méthode pour récupérer le positionnement de mes valeur que j'avais définie dans mon datagridview. ?

quelle et la metode en dure sinon ?

[chrismonoye]

Bonjour,
"positionnement de mes valeurs" : je pense que cela veut dire gauche droite ou centré en vertical ou en horizontal.
Il suffit de lui dire, exemple pour les entêtes des colonnes pour ressembler à votre exemple.
J'ai aussi défini la police qui ressemble et j'ai complété votre code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim font16Bd As New Font(FontFactory.GetFont(BaseFont.TIMES_ROMAN, 16, iTextSharp.text.Font.BOLD))
 
        ''Adding Header row
        For Each column As DataGridViewColumn In DGV.Columns
            Dim cell As New PdfPCell(New Phrase(column.HeaderText, font16Bd))
            cell.FixedHeight = 25.0F
            cell.BackgroundColor = New BaseColor(240, 240, 240)
            cell.Column.Alignment = Element.ALIGN_CENTER
            cell.VerticalAlignment = Element.ALIGN_TOP
            pdfTable.AddCell(cell)
        Next

A tester et si ça convient, je vous laisse le soin de faire la même chose pour les lignes courantes.

[oshigamie]

merci mais je veut que sa sois sur une colonne spécifique enfaite .
Par exemple la premeier cellule sera aligné a gauche la seconde sera centré et la troisieme sera aligner a droite .
Comment recupere celle qui m'interesse ?

[chrismonoye]

Pour les lignes, il faudra connaitre l'index de la colonne et appliquer les formats en fonction dans le genre :
Exemple de 3 colonnes, la première alignée à gauche et les deux autres à droite.
Il y a aussi les traits verticaux séparant ces colonnes :

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
 
        'Adding DataRow
        Dim fontDefault As New Font(FontFactory.GetFont(pdf.BaseFont.TIMES_ROMAN, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL))
 
        For i As Integer = 0 To DGV.Rows.Count - 1
            If Not DGV.Rows(i).IsNewRow Then
                For j As Integer = 0 To DGV.Columns.Count - 1
                    Dim cellText As String = DGV.Rows(i).Cells(j).Value.ToString
                    Dim cell As New PdfPCell(New Phrase(cellText, fontDefault))
                    With cell
                        .FixedHeight = 20.0F
                        .Border = PdfPCell.LEFT_BORDER Or PdfPCell.RIGHT_BORDER
                        Select Case j
                            Case 0
                                .VerticalAlignment = Element.ALIGN_TOP
                                .Column.Alignment = Element.ALIGN_LEFT
                            Case 1, 2
                                .Column.Alignment = Element.ALIGN_RIGHT
                                .PaddingRight = 10
                        End Select
                    End With
                    pdfTable.AddCell(cell)
                Next
            End If
        Next

[oshigamie]

J'ai essayé votre code Mais le alignement midle de marche pas voici le changement que j'ai apporter .

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 fontDefault As New Font(FontFactory.GetFont(pdf.BaseFont.TIMES_ROMAN, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL))
 
            For i As Integer = 0 To FormDEVIS.DgDevis.Rows.Count - 1
                If Not FormDEVIS.DgDevis.Rows(i).IsNewRow Then
                    For j As Integer = 0 To FormDEVIS.DgDevis.Columns.Count - 1
                        Dim cellText As String = FormDEVIS.DgDevis.Rows(i).Cells(j).Value.ToString
                        Dim cell As New PdfPCell(New Phrase(cellText, fontDefault))
                        With cell
                            .FixedHeight = 20.0F
                            .Border = PdfPCell.LEFT_BORDER Or PdfPCell.RIGHT_BORDER
                            Select Case j
                                Case 0
 
                                    .Column.Alignment = Element.ALIGN_LEFT
                                Case 1
                                    .Column.Alignment = Element.ALIGN_MIDDLE
                                Case 2
                                    .Column.Alignment = Element.ALIGN_RIGHT
 
                            End Select
                        End With
                        pdfTable.AddCell(cell)
                    Next
                End If
            Next

[chrismonoye]

je crois que c'est :

Code :

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

1
2
                            Case 1
                                .Column.Alignment = Element.ALIGN_CENTER

[oshigamie]

a oui mince ... Un grand merci a toi