vbnet 下的 DataGridView打印

下的 DataGridView打印Public Class PrintToolStrip Inherits ToolStrip Private WithEvents ToolStripButton1, ToolStripButton2, ToolStripButton3, ToolStripButton4 As New ToolStripButton Private WithEvents PrintDocument1 As New Printing.PrintDocument Private WithEvents PageSetupDialog1 As New System.Windows.Forms.PageSetupDialog Private WithEvents FontDialog1 As New System.Windows.Forms.FontDialog Private WithEvents PrintPreviewDialog1 As New System.Windows.Forms.PrintPreviewDialog Private DGV As DataGridView Private strTitle As String Private tsiDisplayStyle As ToolStripItemDisplayStyle = ToolStripItemDisplayStyle.Image Private tirTextImageRelation As TextImageRelation = Windows.Forms.TextImageRelation.ImageAboveText wInc 为单元格宽增量 Private wInc As Single = 5 hInc 为单元格竖增量 Private hInc As Single = 5 MainStartHeigth 为主体表格起始的高度 Private MainStartHeigth As Single pNo 为页码 Shared pNo As Integer = 1 Private StartHeigth As Single Private StartPos As Single Shared hi As Integer = 0 Private PrintFont As Font = Me.Font 数组 ColumnsWidth 为计算后的列宽 Private ColumnsWidth() As Single 数组 orgColumnsWidth 为原始的最大列宽 Private orgColumnsWidth() As Single RowHeigth 为计算后的行高 Private RowHeigth As Single 数据源，输入DataGridView Public Property MyDataGridView() As DataGridView Set(ByVal value As DataGridView) DGV = value End Set Get Return DGV End Get End Property 报表标题 Public Property Title() As String Set(ByVal value As String) strTitle = value End Set Get Return strTitle End Get End Property 按钮显示方式 _ Public Property DisplayStyle() As ToolStripItemDisplayStyle Set(ByVal value As ToolStripItemDisplayStyle) tsiDisplayStyle = value End Set Get Return tsiDisplayStyle End Get End Property 图片文字显示位置 _ Public Property TextImageRelation() As TextImageRelation Set(ByVal value As TextImageRelation) tirTextImageRelation = value End Set Get Return tirTextImageRelation End Get End Property 设置按钮显示方式 Private Sub SetButtonDisplayStyle() Me.ToolStripButton1.DisplayStyle = DisplayStyle Me.ToolStripButton2.DisplayStyle = DisplayStyle Me.ToolStripButton3.DisplayStyle = DisplayStyle Me.ToolStripButton4.DisplayStyle = DisplayStyle End Sub 设置按钮图片文字位置 Private Sub SetButtonTextImageRelation() Me.ToolStripButton1.TextImageRelation = TextImageRelation Me.ToolStripButton2.TextImageRelation = TextImageRelation Me.ToolStripButton3.TextImageRelation = TextImageRelation Me.ToolStripButton4.TextImageRelation = TextImageRelation End Sub 遍历整个表格，得到每列的最大宽度 Private Sub GetLargestWidthOfColumn(ByVal g As System.Drawing.Graphics) 定义列宽数组的长度 ReDim ColumnsWidth(MyDataGridView.Columns.Count - 1) ReDim orgColumnsWidth(MyDataGridView.Columns.Count - 1) For i As Integer = 0 To MyDataGridView.Columns.Count - 1 如果列为隐藏，不打印 If MyDataGridView.Columns(i).Visible = False Then Continue For End If ColumnsWidth(i) = MyDataGridView.Columns(i).Width Next Dim g As System.Drawing.Graphics Dim iC, iR As Integer For iC = 0 To MyDataGridView.Columns.Count - 1 如果列为隐藏，不打印 If MyDataGridView.Columns(iC).Visible = False Then Continue For End If Dim dc As DataGridViewColumn = MyDataGridView.Columns(iC) 计算列头文字需要的宽 Dim sizeFHeader As Drawing.SizeF sizeFHeader = g.MeasureString(dc.HeaderText, PrintFont) orgColumnsWidth(iC) = sizeFHeader.Width RowHeigth = sizeFHeader.Height dc.Dispose() 计算值的宽 For iR = 0 To MyDataGridView.Rows.Count - 1 Dim dr As DataGridViewRow = MyDataGridView.Rows(iR) If dr.Cells(iC).Value IsNot Nothing AndAlso Not IsDBNull(dr.Cells(iC).Value) Then sizeFHeader = g.MeasureString(dr.Cells(iC).Value.ToString, PrintFont) If orgColumnsWidth(iC) pWidth Then Exit For End If Next Return (k) End Function 根据合适的列宽和列宽缩小的比例，计算出合适的行高 Private Sub GetFitHeightOfRow(ByVal pScale As Integer) RowHeigth = RowHeigth * Fix(100 / pScale) + 1) + hInc End Sub 打印主体 Private Sub pd_PrintMain(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim g As Graphics = e.Graphics 如果是第一页，计算长宽 If pNo = 1 Then GetLargestWidthOfColumn(g) GetFitHeightOfRow(GetFitWidthOfColumn(e.MarginBounds.Width) End If 添加DataGridView主体 计算标题的高度,预留空间 Dim sizeFTitle As Drawing.SizeF Dim Title As String = 这次报表的标题应该够长了吧，哈哈哈哈 sizeFTitle = e.Graphics.MeasureString(Title, New Font(宋体, 30, FontStyle.Bold) MainStartHeigth = sizeFTitle.Height + e.MarginBounds.Top StartHeigth = MainStartHeigth -再来开始- 添加列头，按已经求出的最长宽度 起始位置为纸张可打印边框的左边 StartPos = e.MarginBounds.Left Dim i As Integer For i = 0 To MyDataGridView.Columns.Count - 1 如果列为隐藏，不打印 If MyDataGridView.Columns(i).Visible = False Then Continue For End If Dim dc As DataGridViewColumn dc = MyDataGridView.Columns(i) Dim sizeFHeader As New Drawing.SizeF sizeFHeader = e.Graphics.MeasureString(dc.HeaderText, PrintFont, ColumnsWidth(i) 写表头 g.DrawString(dc.HeaderText, PrintFont, Drawing.Brushes.Black, New RectangleF(StartPos + wInc, StartHeigth + hInc, ColumnsWidth(i) - wInc, RowHeigth - hInc) 添加外边框 上 g.DrawLine(Pens.Black, StartPos, StartHeigth, StartPos + ColumnsWidth(i), StartHeigth) 左 g.DrawLine(Pens.Black, StartPos, StartHeigth, StartPos, StartHeigth + RowHeigth) StartPos += ColumnsWidth(i) Next 添加主体 StartHeigth += RowHeigth While hi MyDataGridView.Rows.Count And StartHeigth e.MarginBounds.Height StartPos = e.MarginBounds.Left Dim obj As New Object Dim wi As Integer = 0 For wi = 0 To MyDataGridView.Columns.Count - 1 如果列为隐藏，不打印 If MyDataGridView.Columns(wi).Visible = False Then Continue For End If Dim dcWidth As Single dcWidth = ColumnsWidth(wi) 上 g.DrawLine(Pens.Black, StartPos, StartHeigth, StartPos + dcWidth, StartHeigth) 左 g.DrawLine(Pens.Black, StartPos, StartHeigth, StartPos, StartHeigth + RowHeigth) StartPos += dcWidth Try If Not IsDBNull(MyDataGridView.Rows(hi).Cells(wi).Value) Then g.DrawString(MyDataGridView.Rows(hi).Cells(wi).Value, PrintFont, Drawing.Brushes.Black, New RectangleF(StartPos - dcWidth + 2, StartHeigth + 3, dcWidth + 2, RowHeigth) End If Catch ex As Exception MsgBox(ex.Message) End Try Next StartHeigth += RowHeigth hi += 1 End While 如果是第一页,添加表头 根据绘制表格的宽度添加标题() If pNo = 1 Then If StartPos - e.MarginBounds.Left sizeFTitle.Width Then 如果标题的宽度大于表格的宽度，则缩小标题字号 For i = 30 To 1 Step -1 sizeFTitle = e.Graphics.MeasureString(Title, New Font(宋体, i, FontStyle.Bold) If sizeFTitle.Width e.MarginBounds.Height And hi = MyDataGridView.Rows.Count Then And e.HasMorePages.Equals(False) Then hi = 0 pNo = 1 Exit Sub End If End Sub Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click Me.PageSetupDialog1.Document = Me.PrintDocument1 Me.PageSetupDialog1.ShowDialog() Me.PrintDocument1.DefaultPageSettings = Me.PageSetupDialog1.PageSettings End Sub Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click Me.FontDialog1.ShowDialog() PrintFont = Me.FontDialog1.Font End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Me.PrintPreviewDialog1.Document = Me.PrintDocument1 Me.PrintPreviewDialog1.ShowDialog() End Sub Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click Me.PrintDocument1.Print(