精简代码实现datagridView 表格打印

最新推荐文章于 2018-07-04 17:35:40 发布

原创最新推荐文章于 2018-07-04 17:35:40 发布 · 1.1k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#integer #textbox #string #each #测试

本文介绍了一种简便的方法来实现在Windows Forms应用中DataGridView的打印功能。通过遍历控件和DataGridView的行列，能够精确地打印出文本框内容及表格样式，包括标题行和单元格数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'====打印表格前内容==== '打印文本框内容 For Each ob As Control In Me.SplitContainer1.Panel2.Controls If TypeOf (ob) Is TextBox Then e.Graphics.DrawString(ob.Text, ob.Font, Brushes.Black, ob.Bounds.X, ob.Bounds.Y) End If Next Dim StrFormat As New StringFormat With StrFormat .LineAlignment = StringAlignment.Center .Alignment = StringAlignment.Center .Trimming = StringTrimming.None End With '=====打印表格标题行 Dim rect As New Rectangle Dim strValue As String Dim indexCol As Integer Dim colWidth As Integer = 0 For indexCol = 0 To datagrid.Columns.Count - 1 'If datagrid.Columns(indexCol).HeaderCell.Value Is DBNull.Value Then Continue For strValue = datagrid.Columns(indexCol).HeaderText rect = New Rectangle(datagrid.RowHeadersWidth, 0, datagrid.Columns(indexCol).Width, datagrid.ColumnHeadersHeight) rect.Offset(datagrid.Location + New Point(colWidth, 0)) colWidth += datagrid.Columns(indexCol).Width e.Graphics.DrawRectangle(Pens.Black, rect) e.Graphics.DrawString(strValue, datagrid.Font, Brushes.Black, rect, StrFormat) Next '====打印表格以及内容 Dim irow As Integer : Dim icol As Integer '+ New Point(0, datagrid.ColumnHeadersHeight) strValue = "" For irow = 0 To datagrid.Rows.Count - 1 For icol = 0 To datagrid.Columns.Count - 1 rect = datagrid.GetCellDisplayRectangle(icol, irow, False) rect.Offset(datagrid.Location) e.Graphics.DrawRectangle(Pens.Black, rect) If datagrid.Rows(irow).Cells(icol).Value Is DBNull.Value Then strValue = "" Else strValue = datagrid.Rows(irow).Cells(icol).FormattedValue End If e.Graphics.DrawString(strValue, datagrid.Font, Brushes.Black, rect, StrFormat) Next Next

看了其他一些代码，感觉比较繁琐，花了1整天功夫，经过不断测试，终于可以以简便的方式实现datagridview绘制了实现后可以按照表格实际式样以及大小进行打印了