DataGrid控件通用打印类.

Imports System.Drawing.Printing
Imports System.Drawing.Color
Imports System.Windows.Forms
Imports System.Drawing.Font
Imports System.Drawing.PointF
Imports System.Windows.Forms.DataGrid
Imports System.Drawing.Pen
Imports System.Drawing

 

''=======================================
'DATAGRID控件通用打印类
'中和科技-孙利臣
'于2003年05月27日17:05
'用于打印DATAGRID控件中的数据.

'=======================================

Public Class PrintDataGrid
    '用户可自定义
    Private PrintFont As New Font("宋体", 10)           '当前要打印文本的字体及字号
    Private PrintLines As Integer = 50                  '当前页共要分成多少行.
    Private PrintRecordNumber As Integer = 45           '当前页共要打印的记录的行数

    '以下为模块内部使用
    Private DataGridSource As DataGrid
    Private ev As PrintPageEventArgs
    Private PrintDataGrid As PrintDocument
    Private PrintPriview As PrintPreviewDialog
    Private PageSetup As PageSetupDialog
    Private PrintScale As Double = 1                    '当前要打印的数据与DATAGRID控件内数据的比例

    Private DataGridColumn As DataColumn
    Private DataGridRow As DataRow
    Private DataGridTable As DataTable

    Private Cols As Integer                             '当前要打印的列
    Private Rows As Integer = 1                         '当前要打印的行

    Private ColsCount As Integer                        '当前DATAGRID共有多少列

    Private PrintingLineNumber As Integer = 0           '当前正要打印的行号
    Private PageRecordNumber As Integer                 '当前要所要打印的记录行数,由计算得到.

    Dim X_unit As Integer                               '表的基本单位
    Dim Y_unit As Integer

    Private PrintingPageNumber As Integer = 0           '正要打印的页号

    Private PageNumber As Integer                       '共需要打印的页数
    Private PrintRecordLeave As Integer                 '当前还有多少页没有打印
    Private PrintRecordComplete As Integer = 0          '已经打印完的记录数

    Sub New(ByVal TableSource As DataGrid)
        DataGridSource = TableSource
        DataGridTable = New DataTable()
        DataGridTable = DataGridSource.DataSource()
        ColsCount = DataGridTable.Columns.Count
    End Sub

    '用户自定义字体及字号
    Public WriteOnly Property setPrintFont() As System.Drawing.Font
        Set(ByVal Value As System.Drawing.Font)
            PrintFont = Value
        End Set
    End Property

    '设置每页要打印的的记录条数
    Public WriteOnly Property setPrintRecordNumber() As Integer
        Set(ByVal Value As Integer)
            PrintRecordNumber = Value
        End Set
    End Property

    Public Sub Print()
        Try
            PrintDataGrid = New System.Drawing.Printing.PrintDocument()
            AddHandler PrintDataGrid.PrintPage, AddressOf Me.PrintDataGrid_PrintPage
            'PrintDataTable.Print()

            '打印机设置对话框
            PageSetup = New PageSetupDialog()
            PageSetup.PageSettings = PrintDataGrid.DefaultPageSettings
            If PageSetup.ShowDialog() = DialogResult.Cancel Then
                Exit Sub
            End If

            '当前页是横向还是纵向打印
            '计算当前页总共可以打印的行数
            If PrintDataGrid.DefaultPageSettings.Landscape = False Then
                PrintLines = PrintDataGrid.DefaultPageSettings.PaperSize.Height / (PrintFont.Height + 5)
            Else
                PrintLines = PrintDataGrid.DefaultPageSettings.PaperSize.Width / (PrintFont.Height + 5)
            End If

            '如果用户选择自定义纸张大小打印,则按B5纸打印,不管实际纸张大小
            If PrintDataGrid.DefaultPageSettings.PaperSize.PaperName.ToString = "custom" Then

            End If

            '预览窗口
            PrintPriview = New PrintPreviewDialog()
            PrintPriview.Document = PrintDataGrid
            PrintPriview.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("error:" & ex.ToString)
        Finally

        End Try
    End Sub

    Private Sub PrintDataGrid_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)

        'A4纸  A4 纸，210 x 297 毫米。
        'B5纸 B5 纸，182 x 257 毫米。

        Dim strPrint As String  '当前要打印的文本
        Dim DrawBrush As New SolidBrush(System.Drawing.Color.Blue)     '当前画笔颜色

        Dim X As Integer        '当前要打印的文本的横坐标
        Dim Y As Integer        '当前要打印的文本的列坐标

        Dim DrawPoint As New PointF(X, Y)

        Dim row_count As Integer '当前要打印的行

        PrintRecordLeave = DataGridTable.Rows.Count - PrintRecordComplete       '还有多少条记录没有打印

        PageNumber = PrintRecordLeave / PrintRecordNumber         '共需要打印的页数
        PrintingPageNumber = 0                                      '因为每打印一个新页都要计算还有多少页没有打印所以以打印的页数初始为0

        '将当前页分成基本的单元
        If PrintDataGrid.DefaultPageSettings.Landscape = True Then
            X_unit = PrintDataGrid.DefaultPageSettings.PaperSize.Height / (DataGridTable.Columns.Count + 2)
            Y_unit = PrintDataGrid.DefaultPageSettings.PaperSize.Width / PrintLines

        Else
            X_unit = PrintDataGrid.DefaultPageSettings.PaperSize.Width / (DataGridTable.Columns.Count + 2)
            Y_unit = PrintDataGrid.DefaultPageSettings.PaperSize.Height / PrintLines

        End If

        '计算,余下的记录条数是否还可以在一页打印,不满一页时为假
        If DataGridTable.Rows.Count - PrintingPageNumber * PrintRecordNumber >= PrintRecordNumber Then
            PageRecordNumber = PrintRecordNumber
        Else
            PageRecordNumber = (DataGridTable.Rows.Count - PrintingPageNumber * PrintRecordNumber) Mod PrintRecordNumber
        End If

        While PrintingPageNumber <= PageNumber

            '文档标题----------------打印开始
            strPrint = DataGridSource.CaptionText           '文档标题
            DrawPoint = New PointF(X_unit, Y_unit)
            ev.Graphics.DrawString(strPrint, PrintFont, DrawBrush, DrawPoint)
            '文档标题----------------打印结束

            '得到DATAGRID的所有列名
            Dim ColumnText(DataGridTable.Columns.Count) As String
            Dim Table As Integer

            For Cols = 0 To DataGridTable.Columns.Count - 1

                ColumnText(Cols) = DataGridTable.Columns(Cols).ToString         '得到当前所有的列名

                DrawPoint = New PointF(X_unit * (Cols + 1), Y_unit * 2)
                ev.Graphics.DrawString(ColumnText(Cols), PrintFont, DrawBrush, DrawPoint)

            Next

            DrawPoint = New PointF(X_unit, Y_unit * 2)
            Call DrawLine(DrawPoint, ev)                                   '画线
            '结束---------------------得到DATAGRID的所有列名

            Dim PrintingLine As Integer = 0                         '当前页面已经打印的记录行数

            '用于确定是否换页的标记
            Dim strUpData As String = ""                           '当前数据的前一个数据
            Dim strNonce As String = ""                            '当前数据

            While PrintingLine < PageRecordNumber

                DataGridRow = DataGridTable.Rows(PrintRecordComplete)           '确定要当前要打印的记录的行号
                For Cols = 0 To DataGridTable.Columns.Count - 1
                    DrawPoint.X = X_unit * (Cols + 1)
                    DrawPoint.Y = Y_unit * (PrintingLine + 1 + 2)

                    If Cols = 0 Then                                            '所要根据此列的数据分页
                        If strUpData <> "" Then                 'And strNonce <> ""
                            If strUpData <> DataGridRow(ColumnText(0)) Then
                                ev.HasMorePages = True
                                Exit Sub

                            End If
                        End If
                    End If

                    ev.Graphics.DrawString(DataGridRow(ColumnText(Cols)), PrintFont, DrawBrush, DrawPoint)
                    strUpData = DataGridRow(ColumnText(0))                              '当前行数据打印完成后,将打记录的第一列保存,(也可不用此语句,只为明确)
                Next

                DrawPoint.X = X_unit * 1
                DrawPoint.Y = Y_unit * (PrintingLine + 1 + 2)

                Call DrawLine(DrawPoint, ev)

                PrintingLine += 1
                PrintRecordComplete += 1

                '打印完最后一条记录后结束打印.
                '如:当前有500条记录.从0开始打印,实际打印的为第一条记录.则打印500条时实际的是第501条记录.也就是最后一条
                'datagridtable.rows.count得到就是表内的实际记录条数,共有多少条记录(从1开始),当
                'printrecordcomplete>=datagridtable.rows.count也就是当前已经打印到了500条,加1后将要打印第501条,越界,则结束.
                If PrintRecordComplete >= DataGridTable.Rows.Count Then
                    ev.HasMorePages = False
                    Exit Sub
                End If
            End While

            PrintingPageNumber += 1
            If PrintingPageNumber > PageNumber Then
                ev.HasMorePages = False
            Else

                ev.HasMorePages = True
                Exit While
            End If

        End While

    End Sub

 

    '画线  只必指定当前行的打印文字的开始位置就可,x,y为当前行文字的打印位置
    Private Sub DrawLine(ByVal point As PointF, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)
        Dim blackPen As New Pen(System.Drawing.Color.Black, 1)

        ev.Graphics.DrawLine(blackPen, point.X, point.Y + PrintFont.Height, point.X * (ColsCount + 1), point.Y + PrintFont.Height)

    End Sub

End Class

 

 

``````````````````````````````````````````````````````

    Private aa As PrintDataGrid.PrintDataGrid

        aa = New PrintDataGrid.PrintDataGrid(DataGrid1)

       aa.setPrintFont() = New System.Drawing.Font("宋体", 12)          '打印文本的字体
        aa.setPrintRecordNumber = 30                                      '每页要打印的记录行数

        aa.Print()

 

功能:可以直接打印DATAGRID控件中的数据,但不能对数据进行格式化,功能还在完善中:)

希望大家多多指教.谢谢.