الرسم علي أداة DataGridView - نسخة قابلة للطباعة

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub DataGridView1_CellPainting[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][COLOR=#0000bb]_ 

            ByVal e [/COLOR][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]DataGridViewCellPaintingEventArgs[/color][color=#007700]) [/color][COLOR=#0000bb]_ 

            Handles DataGridView1[/COLOR][color=#007700].[/color][COLOR=#0000bb]CellPainting 

        On Error Resume Next 

        Dim IconImg [/COLOR][color=#007700]As [/color][color=#0000bb]Image [/color][color=#007700]= [/color][color=#0000bb]Image[/color][color=#007700].[/color][color=#0000bb]FromFile[/color][color=#007700]([/color][color=#dd0000]"C:\img.PNG"[/color][COLOR=#007700]) 

        If [/COLOR][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]RowIndex [/color][color=#007700]= -[/color][color=#0000bb]1 AndAlso e[/color][color=#007700].[/color][color=#0000bb]ColumnIndex [/color][color=#007700]= [/color][color=#0000bb]DataGridView1[/color][color=#007700].[/color][color=#0000bb]Columns[/color][color=#007700].[/color][color=#0000bb]Count [/color][color=#007700]- [/color][COLOR=#0000bb]1 Then 

            e[/COLOR][color=#007700].[/color][color=#0000bb]Paint[/color][color=#007700]([/color][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]CellBounds[/color][color=#007700], [/color][color=#0000bb]DataGridViewPaintParts[/color][color=#007700].[/color][color=#0000bb]All [/color][color=#007700]And [/color][color=#0000bb]Not DataGridViewPaintParts[/color][color=#007700].[/color][color=#0000bb]ContentForeground[/color][COLOR=#007700]) 

            [/COLOR][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]Graphics[/color][color=#007700].[/color][color=#0000bb]DrawImage[/color][color=#007700]([/color][color=#0000bb]IconImg[/color][color=#007700], [/color][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]CellBounds[/color][COLOR=#007700]) 

            [/COLOR][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]Handled [/color][color=#007700]= [/color][COLOR=#0000bb]True 

        End [/COLOR][COLOR=#007700]If 

    [/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]