实现水晶报表的打印功能(网摘)

 

1. Imports System.Drawing
2. Imports System.Drawing.Pen
3. Imports System.Drawing.Font
4. Imports System.Drawing.PointF
5. Imports System.Drawing.Color
6. Imports System.Drawing.Printing
7. Imports System.Windows.Forms
8. Imports System.Windows.Forms.DataGrid
10. Public Class PrintDataTable
11.     '以下用户可自定义
12.     '当前要打印文本的字体及字号
13.     Private TableFont As New Font("宋体", 10)
14.     '表头字体
15.     Private HeadFont As New Font("宋体", 20, FontStyle.Bold)
16.     '副表头字体
17.     Private SubHeadFont As New Font("宋体", 10, FontStyle.Regular)
18.     '表头文字
19.     Private HeadText As String
20.     '副表头左文字
21.     Private SubHeadLeftText As String
22.     '副表头右文字
23.     Private SubHeadRightText As String
24.     '表头高度
25.     Private HeadHeight As Integer = 40
26.     '副表头高度
27.     Private SubHeadHeight As Integer = 20
28.     '表脚字体
29.     Private FootFont As New Font("宋体", 10, FontStyle.Regular)
30.     '副表脚字体
31.     Private SubFootFont As New Font("宋体", 10, FontStyle.Regular)
32.     '表脚文字
33.     Private FootText As String
34.     '副表脚左文字
35.     Private SubFootLeftText As String
36.     '副表脚右文字
37.     Private SubFootRightText As String
38.     '表脚高度
39.     Private FootHeight As Integer = 30
40.     '副表脚高度
41.     Private SubFootHeight As Integer = 20
42.     '表的基本单位
43.     Dim XUnit As Integer
44.     Dim YUnit As Integer = TableFont.Height * 2.5
45.     '以下为模块内部使用
46.     Private Ev As PrintPageEventArgs
47.     Private DataTablePrinter As PrintDocument
48.     Private DataGridColumn As DataColumn
49.     Private DataGridRow As DataRow
50.     Private DataTablePrint As DataTable
51.     '当前要打印的行
52.     Private Rows As Integer
53.     '当前DATAGRID共有多少列
54.     Private ColsCount As Integer
55.     '当前正要打印的行号
56.     Private PrintingLineNumber As Integer
57.     '当前要所要打印的记录行数,由计算得到
58.     Private PageRecordNumber As Integer
59.     '正要打印的页号
60.     Private PrintingPageNumber As Integer
61.     '共需要打印的页数
62.     Private PageNumber As Integer
63.     '当前还有多少页没有打印
64.     Private PrintRecordLeave As Integer
65.     '已经打印完的记录数
66.     Private PrintRecordComplete As Integer
67.     Private PLeft As Integer
68.     Private PTop As Integer
69.     Private PRight As Integer
70.     Private PBottom As Integer
71.     Private PWidth As Integer
72.     Private PHeigh As Integer
73.     '当前画笔颜色
74.     Private DrawBrush As New SolidBrush(System.Drawing.Color.Black)
75.     '每页打印的记录条数
76.     Private PrintRecordNumber As Integer
77.     '总共应该打印的页数
78.     Private TotalPage As Integer
80.     Sub New(ByVal TableSource As DataTable)
81.         DataTablePrint = New DataTable
82.         DataTablePrint = TableSource
83.         ColsCount = DataTablePrint.Columns.Count
84.     End Sub
86.     '用户自定义字体及字号
87.     Public WriteOnly Property SetTableFont() As System.Drawing.Font
88.         Set(ByVal Value As System.Drawing.Font)
89.             TableFont = Value
90.         End Set
91.     End Property
93.     Public WriteOnly Property SetHeadFont() As System.Drawing.Font
94.         Set(ByVal Value As System.Drawing.Font)
95.             HeadFont = Value
96.         End Set
97.     End Property
99.     Public WriteOnly Property SetSubHeadFont() As System.Drawing.Font
100.         Set(ByVal Value As System.Drawing.Font)
101.             SubHeadFont = Value
102.         End Set
103.     End Property
105.     Public WriteOnly Property SetFootFont() As System.Drawing.Font
106.         Set(ByVal Value As System.Drawing.Font)
107.             FootFont = Value
108.         End Set
109.     End Property
111.     Public WriteOnly Property SetSubFootFont() As System.Drawing.Font
112.         Set(ByVal Value As System.Drawing.Font)
113.             SubFootFont = Value
114.         End Set
115.     End Property
117.     Public WriteOnly Property SetHeadText() As String
118.         Set(ByVal Value As String)
119.             HeadText = Value
120.         End Set
121.     End Property
123.     Public WriteOnly Property SetSubHeadLeftText() As String
124.         Set(ByVal Value As String)
125.             SubHeadLeftText = Value
126.         End Set
127.     End Property
129.     Public WriteOnly Property SetSubHeadRightText() As String
130.         Set(ByVal Value As String)
131.             SubHeadRightText = Value
132.         End Set
133.     End Property
135.     Public WriteOnly Property SetFootText() As String
136.         Set(ByVal Value As String)
137.             FootText = Value
138.         End Set
139.     End Property
141.     Public WriteOnly Property SetSubFootLeftText() As String
142.         Set(ByVal Value As String)
143.             SubFootLeftText = Value
144.         End Set
145.     End Property
147.     Public WriteOnly Property SetSubFootRightText() As String
148.         Set(ByVal Value As String)
149.             SubFootRightText = Value
150.         End Set
151.     End Property
153.     Public WriteOnly Property SetHeadHeight() As Integer
154.         Set(ByVal Value As Integer)
155.             HeadHeight = Value
156.         End Set
157.     End Property
159.     Public WriteOnly Property SetSubHeadHeight() As Integer
160.         Set(ByVal Value As Integer)
161.             SubHeadHeight = Value
162.         End Set
163.     End Property
165.     Public WriteOnly Property SetFootHeight() As Integer
166.         Set(ByVal Value As Integer)
167.             FootHeight = Value
168.         End Set
169.     End Property
171.     Public WriteOnly Property SetSubFootHeight() As Integer
172.         Set(ByVal Value As Integer)
173.             SubFootHeight = Value
174.         End Set
175.     End Property
177.     Public WriteOnly Property SetCellHeight() As Integer
178.         Set(ByVal Value As Integer)
179.             YUnit = Value
180.         End Set
181.     End Property
183.     Public Sub Print()
184.         Try
185.             DataTablePrinter = New Printing.PrintDocument
186.             AddHandler DataTablePrinter.PrintPage, AddressOf DataTablePrinter_PrintPage
187.             Dim PageSetup As PageSetupDialog
188.             PageSetup = New PageSetupDialog
189.             PageSetup.Document = DataTablePrinter
190.             DataTablePrinter.DefaultPageSettings = PageSetup.PageSettings
191.             If PageSetup.ShowDialog() = DialogResult.Cancel Then
192.                 Exit Sub
193.             End If
194.             PLeft = DataTablePrinter.DefaultPageSettings.Margins.Left
195.             PTop = DataTablePrinter.DefaultPageSettings.Margins.Top
196.             PRight = DataTablePrinter.DefaultPageSettings.Margins.Right
197.             PBottom = DataTablePrinter.DefaultPageSettings.Margins.Bottom
198.             PWidth = DataTablePrinter.DefaultPageSettings.Bounds.Width
199.             PHeigh = DataTablePrinter.DefaultPageSettings.Bounds.Height
200.             '将当前页分成基本的单元
201.             XUnit = (PWidth - PLeft - PRight) / DataTablePrint.Columns.Count - 1
202.             PrintRecordNumber = (PHeigh - PTop - PBottom - HeadHeight - SubHeadHeight - FootHeight - SubFootHeight - YUnit) / YUnit
203.             If DataTablePrint.Rows.Count > PrintRecordNumber Then
204.                 If DataTablePrint.Rows.Count Mod PrintRecordNumber = 0 Then
205.                     TotalPage = DataTablePrint.Rows.Count / PrintRecordNumber
206.                 Else
207.                     TotalPage = DataTablePrint.Rows.Count / PrintRecordNumber + 1
208.                 End If
209.             Else
210.                 TotalPage = 1
211.             End If
212.             DataTablePrinter.DocumentName = TotalPage.ToString
213.             Dim PrintPriview As PrintPreviewDialog
214.             PrintPriview = New PrintPreviewDialog
215.             PrintPriview.Document = DataTablePrinter
216.             PrintPriview.WindowState = FormWindowState.Maximized
217.             PrintPriview.ShowDialog()
218.         Catch ex As Exception
219.             MsgBox("打印错误，请检查打印设置！", 16, "错误")
220.         End Try
221.     End Sub
222. 1. Private Sub DataTablePrinter_PrintPage(ByVal sender As Object, ByVal Ev As System.Drawing.Printing.PrintPageEventArgs)
     2.         '还有多少条记录没有打印
     3.         PrintRecordLeave = DataTablePrint.Rows.Count - PrintRecordComplete
     4.         If PrintRecordLeave > 0 Then
     5.             If PrintRecordLeave Mod PrintRecordNumber = 0 Then
     6.                 PageNumber = PrintRecordLeave / PrintRecordNumber
     7.             Else
     8.                 PageNumber = PrintRecordLeave / PrintRecordNumber + 1
     9.             End If
     10.         Else
     11.             PageNumber = 0
     12.         End If
     13.         '正在打印的页数，因为每打印一个新页都要计算还有多少页没有打印所以以打印的页数初始为0
     14.         PrintingPageNumber = 0
     15.         '计算,余下的记录条数是否还可以在一页打印,不满一页时为假
     16.         If DataTablePrint.Rows.Count - PrintingPageNumber * PrintRecordNumber >= PrintRecordNumber Then
     17.             PageRecordNumber = PrintRecordNumber
     18.         Else
     19.             PageRecordNumber = (DataTablePrint.Rows.Count - PrintingPageNumber * PrintRecordNumber) Mod PrintRecordNumber
     20.         End If
     21.         Dim fmt As New StringFormat
     22.         '上下对齐
     23.         fmt.LineAlignment = StringAlignment.Center
     24.         '自动换行
     25.         fmt.FormatFlags = StringFormatFlags.LineLimit
     26.         '打印区域
     27.         Dim Rect As New Rectangle
     28.         '打印表格线格式
     29.         Dim Pen As New Pen(Brushes.Black, 1)
     30.         While PrintingPageNumber <= PageNumber
     31.             '表头中间对齐
     32.             fmt.Alignment = StringAlignment.Center
     33.             '表头和副表头宽度等于设置区域宽度
     34.             Rect.Width = PWidth - PLeft - PRight
     35.             Rect.Height = HeadHeight
     36.             Rect.X = PLeft
     37.             Rect.Y = PTop
     38.             '打印表头
     39.             Ev.Graphics.DrawString(HeadText, HeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     40.             '副表头左对齐
     41.             fmt.Alignment = StringAlignment.Near
     42.             Rect.Width = (PWidth - PLeft - PRight) / 2 - 1
     43.             Rect.Height = SubHeadHeight
     44.             Rect.Y = PTop + HeadHeight
     45.             '打印副表头左
     46.             Ev.Graphics.DrawString(SubHeadLeftText, SubHeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     47.             '右副表头文字从右往左排列
     48.             fmt.FormatFlags = StringFormatFlags.DirectionRightToLeft
     49.             '右副表头右对齐
     50.             fmt.Alignment = StringAlignment.Near
     51.             Rect.X = PLeft + (PWidth - PLeft - PRight) / 2
     52.             '打印副表头右
     53.             Ev.Graphics.DrawString(SubHeadRightText, SubHeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     54.             fmt.Alignment = StringAlignment.Center
     55.             Rect.X = PLeft
     56.             Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintRecordNumber + 1) * (YUnit) + SubFootHeight
     57.             Rect.Height = FootHeight
     58.             Rect.Width = PWidth - PLeft - PRight
     59.             '打印表脚
     60.             Ev.Graphics.DrawString(FootText, FootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     61.             '副表左左对齐
     62.             fmt.Alignment = StringAlignment.Far
     63.             Rect.X = PLeft
     64.             Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintRecordNumber + 1) * (YUnit)
     65.             Rect.Height = SubFootHeight
     66.             Rect.Width = (PWidth - PLeft - PRight) / 2 - 1
     67.             '打印左表脚
     68.             Ev.Graphics.DrawString(SubFootLeftText, SubFootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     69.             '副表头右对齐
     70.             fmt.Alignment = StringAlignment.Near
     71.             Rect.X = PLeft + (PWidth - PLeft - PRight) / 2
     72.             If DataTablePrint.Rows.Count = 0 Then
     73.                 SubFootRightText = "第" & TotalPage & "页，共" & TotalPage & "页"
     74.             Else
     75.                 SubFootRightText = "第" & TotalPage - PageNumber + 1 & "页，共" & TotalPage & "页"
     76.             End If
     77.             '打印右表脚
     78.             Ev.Graphics.DrawString(SubFootRightText, SubFootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
     79.             '得到datatable的所有列名
     80.             fmt.Alignment = StringAlignment.Center
     81.             Dim ColumnText(DataTablePrint.Columns.Count) As String
     82.             For Cols = 0 To DataTablePrint.Columns.Count - 1
     83.                 '得到当前所有的列名
     84.                 ColumnText(Cols) = DataTablePrint.Columns(Cols).ToString
     85.                 Rect.X = PLeft + XUnit * Cols
     86.                 Rect.Y = PTop + HeadHeight + SubHeadHeight
     87.                 Rect.Width = XUnit
     88.                 Rect.Height = YUnit
     89.                 Ev.Graphics.DrawString(ColumnText(Cols), New Font(TableFont, FontStyle.Bold), DrawBrush, RectangleF.op_Implicit(Rect), fmt)
     90.                 Ev.Graphics.DrawRectangle(Pen, Rect)
     91.             Next
     92.             '结束---------------------得到datatable的所有列名
     93.             '当前页面已经打印的记录行数
     94.             Dim PrintingLine As Integer = 0
     95.             While PrintingLine < PageRecordNumber
     96.                 '确定要当前要打印的记录的行号
     97.                 DataGridRow = DataTablePrint.Rows(PrintRecordComplete)
     98.                 For Cols = 0 To DataTablePrint.Columns.Count - 1
     99.                     Rect.X = PLeft + XUnit * Cols
     100.                     Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintingLine + 1) * (YUnit)
     101.                     Rect.Width = XUnit
     102.                     Rect.Height = YUnit
     103.                     If DataGridRow(ColumnText(Cols)) Is System.DBNull.Value = False Then
     104.                         Ev.Graphics.DrawString(DataGridRow(ColumnText(Cols)), TableFont, DrawBrush, RectangleF.op_Implicit(Rect), fmt)
     105.                     End If
     106.                     Ev.Graphics.DrawRectangle(Pen, Rect)
     107.                 Next
     108.                 PrintingLine += 1
     109.                 PrintRecordComplete += 1
     110.                 If PrintRecordComplete >= DataTablePrint.Rows.Count Then
     111.                     Ev.HasMorePages = False
     112.                     PrintRecordComplete = 0
     113.                     Exit Sub
     114.                 End If
     115.             End While
     116.             PrintingPageNumber += 1
     117.             If PrintingPageNumber >= PageNumber Then
     118.                 Ev.HasMorePages = False
     119.             Else
     120.                 Ev.HasMorePages = True
     121.                 Exit While
     122.             End If
     123.         End While
     124.     End Sub
     126.     '附转换函数
     127.     'listview转为Datatable函数
     128.     Public Function ListviewToDatatable(ByVal Listview1 As ListView)
     129.         Dim Table1 As New DataTable
     130.         Dim i As Integer
     131.         Dim datacol As DataColumn
     132.         For i = 0 To Listview1.Columns.Count - 1
     133.             datacol = New DataColumn
     134.             datacol.DataType = Type.GetType("System.Object")
     135.             datacol.ColumnName = Listview1.Columns(i).Text.Trim
     136.             Table1.Columns.Add(datacol)
     137.         Next i
     138.         Dim j As Integer
     139.         Dim Datarow1 As DataRow
     140.         For j = 0 To Listview1.Items.Count - 1
     141.             Datarow1 = Table1.NewRow
     142.             For i = 0 To Listview1.Columns.Count - 1
     143.                 Datarow1.Item(Listview1.Columns(i).Text.Trim) = Listview1.Items(j).SubItems(i).Text.ToString
     144.             Next i
     145.             Table1.Rows.Add(Datarow1)
     146.         Next j
     147.         Return Table1
     148.     End Function
     150.     '数据集转为Datatable函数
     151.     Public Function DataBaseToDataTable(ByVal SqlDataAdapter1 As Data.SqlClient.SqlDataAdapter, ByVal TableName As String)
     152.         Dim Table1 As New DataTable
     153.         Dim DataSet1 As New DataSet
     154.         DataSet1.Clear()
     155.         SqlDataAdapter1.Fill(DataSet1, TableName)
     156.         Table1 = DataSet1.Tables(TableName)
     157.         Return Table1
     158.     End Function
     159. End Class