[VB.NET] - 打印DataGridView类
Imports
System.Drawing.Printing
Public
Class
PrintDataGridView
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
Private
wInc
As
Single
=
5
'
wInc 为单元格宽增量
Private
hInc
As
Single
=
5
'
hInc 为单元格竖增量
Private
MainStartHeigth
As
Single
'
MainStartHeigth 为主体表格起始的高度
Shared
pNo
As
Integer
=
1
'
pNo 为页码
Private
StartHeigth
As
Single
Private
StartPos
As
Single
Shared
hi
As
Integer
=
0
Public
PrintFont
As
Font
=
New
Font(
"
Arial
"
,
16
)
Private
ColumnsWidth()
As
Single
'
数组 ColumnsWidth 为计算后的列宽
Private
orgColumnsWidth()
As
Single
'
数组 orgColumnsWidth 为原始的最大列宽
Private
RowHeigth
As
Single
'
RowHeigth 为计算后的行高
Sub
New
()
AddHandler
PrintDocument1.PrintPage,
AddressOf
Me
.pd_PrintMain
End Sub
'
按钮显示方式
'
遍历整个表格,得到每列的最大宽度
Private
Sub
GetLargestWidthOfColumn(
ByVal
g
As
System.Drawing.Graphics)
ReDim
ColumnsWidth(DGV.Columns.Count
-
1
)
'
定义列宽数组的长度
ReDim
orgColumnsWidth(DGV.Columns.Count
-
1
)
For
i
As
Integer
=
0
To
DGV.Columns.Count
-
1
If
DGV.Columns(i).Visible
=
False
Then
Continue
For
'
如果列为隐藏,不打印
ColumnsWidth(i)
=
DGV.Columns(i).Width
Next
Dim
iC, iR
As
Integer
For
iC
=
0
To
DGV.Columns.Count
-
1
If
DGV.Columns(iC).Visible
=
False
Then
Continue
For
'
如果列为隐藏,不打印
Dim
dc
As
DataGridViewColumn
=
DGV.Columns(iC)
'
计算列头文字需要的宽
Dim
sizeFHeader
As
Drawing.SizeF
sizeFHeader
=
g.MeasureString(dc.HeaderText, PrintFont)
If
sizeFHeader.Width
>
ColumnsWidth(iC)
Then
orgColumnsWidth(iC)
=
sizeFHeader.Width
Else
If
orgColumnsWidth(iC)
>
ColumnsWidth(iC)
*
3
Then
orgColumnsWidth(iC)
=
ColumnsWidth(iC)
*
3
Else
orgColumnsWidth(iC)
=
ColumnsWidth(iC)
End
If
End
If
RowHeigth
=
sizeFHeader.Height
dc.Dispose()
'
计算值的宽
For
iR
=
0
To
DGV.Rows.Count
-
1
Dim
dr
As
DataGridViewRow
=
DGV.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)
<
sizeFHeader.Width
Then
orgColumnsWidth(iC)
=
sizeFHeader.Width
End
If
End
If
dr.Dispose()
Next
Next
End Sub
'
根据纸张宽度,计算出合适的列宽,返回缩小的比例
Private
Function
GetFitWidthOfColumn(
ByVal
pWidth
As
Single
)
As
Integer
'
每列按原始宽度的1%递减,直到适合纸张宽度(pWidth)
Dim
l, i, k
As
Integer
l
=
orgColumnsWidth.Length
For
k
=
100
To
1
Step
-
1
Dim
WidthSum
As
Single
=
0
'
按比例求宽度
For
i
=
0
To
l
-
1
ColumnsWidth(i)
=
orgColumnsWidth(i)
*
k
/
100
WidthSum
+=
orgColumnsWidth(i)
*
k
/
100
+
wInc
Next
If
Not
WidthSum
>
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)
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
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
DGV.Columns.Count
-
1
'
如果列为隐藏,不打印
If
DGV.Columns(i).Visible
=
False
Then
Continue
For
End
If
Dim
dc
As
DataGridViewColumn
dc
=
DGV.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
<
DGV.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
DGV.Columns.Count
-
1
If
DGV.Columns(wi).Visible
=
False
Then
Continue
For
'
如果列为隐藏,不打印
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
(DGV.Rows(hi).Cells(wi).Value)
Then
g.DrawString(DGV.Rows(hi).Cells(wi).Value.ToString(), PrintFont, Drawing.Brushes.Black,
New
RectangleF(StartPos
-
dcWidth
+
2
, StartHeigth
+
3
, dcWidth
+
2
, RowHeigth))
End
If
Catch
ex
As
Exception
MessageBox.Show(ex.Message,
"
Error!
"
, MessageBoxButtons.OK, MessageBoxIcon.Error)
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
<
StartPos
-
e.MarginBounds.Left
Then
g.DrawString(Title,
New
Font(
"
宋体
"
, i, FontStyle.Bold), Brushes.Black, (StartPos
-
e.MarginBounds.Left
-
sizeFTitle.Width)
/
2
+
e.MarginBounds.Left, (MainStartHeigth
-
sizeFTitle.Height)
/
2
)
Exit
For
End
If
Next
Else
g.DrawString(Title,
New
Font(
"
宋体
"
,
30
, FontStyle.Bold), Brushes.Black, (StartPos
-
e.MarginBounds.Left
-
sizeFTitle.Width)
/
2
+
e.MarginBounds.Left, (MainStartHeigth
-
sizeFTitle.Height)
/
2
)
End
If
End
If
g.DrawLine(Pens.Black, e.MarginBounds.Left, StartHeigth, StartPos, StartHeigth)
'
封底
g.DrawLine(Pens.Black, StartPos, MainStartHeigth, StartPos, StartHeigth)
'
封右边
If
StartHeigth
+
RowHeigth
>
e.MarginBounds.Height
And
hi
<
DGV.Rows.Count
Then
e.HasMorePages
=
True
pNo
+=
1
'
页码加1
StartPos
=
e.MarginBounds.Left
StartHeigth
=
e.MarginBounds.Top
Else
e.HasMorePages
=
False
End
If
'
结尾标志
'
If hi.Equals(dgv.Rows.Count) Then 'And e.HasMorePages.Equals(False) Then
If
hi
>=
DGV.Rows.Count
Then
'
And e.HasMorePages.Equals(False) Then
hi
=
0
pNo
=
1
Exit Sub
End
If
End Sub
'
数据源,输入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
Sub
PageSetup()
Me
.PageSetupDialog1.Document
=
Me
.PrintDocument1
Me
.PageSetupDialog1.ShowDialog()
Me
.PrintDocument1.DefaultPageSettings
=
Me
.PageSetupDialog1.PageSettings
End Sub
'
打印预览
Public
Sub
PrintPreview()
Me
.PrintPreviewDialog1.Document
=
Me
.PrintDocument1
Me
.PrintPreviewDialog1.ShowDialog()
End Sub
'
设置字体
Public
Sub
PrintPreviewFont()
Me
.FontDialog1.ShowDialog()
PrintFont
=
Me
.FontDialog1.Font
End Sub
'
打印
Public
Sub
Print
()
Me
.PrintDocument1.Print()
End Sub
End Class