Imprimer un DataGrid

Bonjour

Je cherche tout simplement à imprimer un DataGrid sans utiliser SCML.

Je précise que mon DataGrid n'est pas lié à un Adodc

J'ai bien essayé de balayer mon datagrid avec 2 boucles for (une pour les lignes, une pour les colonnes), mais j'ai un problème au niveau des indices sur les lignes de mon DataGrid. Comment faire une boucle pour récupérer chacune des valeurs des cases de mon datagrid ?

Merci d'avance

Nicolas

Moi à ta place je j'utiliserais un DATA REPORT en utilisant un controle ADODC.

J'ai déjà été confronter à ce problème, mais j'ai pas trouvé une bonne solution rapide et fiable, Alors je suis passé sur ADO....

J&B

J' me rappelle vaguement d' une alternative que j' utilisais pour imprimer un datagrid. J' instanciais un nouvel objet clipboard (presse-papier), j' envoyais ma datagrid dans le presse papier, et je lancais une impression pour le premier élement présent dans le tas du presse papier. J' ai plus le code en tête dsl, je vais le rechercher

Steve2Mulhouse

slt tt le monde

je veux savoir comment imprimer une datagrid

a+

pour imprimer une datagrid y a ca :
--------------------------------------------------------------------------------------

#Region " Code pour imprimer le datagrid "

Private Sub ImprimerGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimerGrid.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New Point(0, 0), Me.Size))

Me.InvokePaint(datagrid, myPaintArgs)

End Sub

#End Region
-------------------------------------------------------------------------------------------------------------
il vous faux un bouton : ImprimerGrid
un objet comande : PrintDocument1
par contre moi je voudrai imprimer une ou plusieur selection de la datagrid mais ca j'ai pas trouver

Moi, ce que je fais est de créer un objet Excel: alors je parcours les cellules du Datagrid et je crée une chaine (a travers un StringBuilder) que j'insère dans le Worksheet en utilisant le Clipboard:
            Dim sbClip As New StringBuilder, txt As String
            For iRow = 0 To Rows - 1
                For iCol = 0 To Colmax - 1
                    txt = dg.Item(iRow, iCol)
                    txt = txt.Replace(vbTab, " ")
                    txt = txt.Replace(vbCrLf, " ")
                    sbClip.Append(dg.Item(iRow, iCol) & vbTab)
                Next
                sbClip.Append(dg.Item(iRow, iCol) & vbCrLf)  ' CRLF instead of final tab

            Next

            Dim Clip As String = sbClip.ToString
            rng = ws.Cells(7, 1)
            Clipboard.SetDataObject(Clip)
            rng.PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteAll)

            ' Do an Autofit on the first 40 rows (or less if < 40)
            Dim s As String = Chr(Colmax + 65)
            Dim r As Integer = Math.Min(Rows, 40)
            s &= CStr(r + 7)
            rng = ws.Range(FirstFormatColumn & "7:" & s)
            rng.EntireColumn.AutoFit()

            Excel.Visible = True
            wb.Activate()

Rows = Rows.Count de DataTable qui est le DataSource de mon Datagrid
rng = excel Range - je choisis la cellule 7,1 parce que j'ai déja inseré quelques lignes d'entete
ColMax = dans certains cas, je veux montrer seulement les premiers n colonnes - colmax = n -1
FirstFormatColumn = lettre qui indique le commencement du Range qui sera sujet au Autofit.

L'utilisateur peut donc imprimer comme il voudra.