搜索文章：

首页  |  Java技术  |  Asp.net  |  Asp编程  |  VC/C++  |  Delphi  |  VB编程
上一篇：Dotnet总结（4）--xml读写 >>

Dotnet总结（3）--打印

作者： unknow
eg:
private DataGridPrinter m_oDataGridPrinter;
protected System.Windows.Forms.PrintPreviewDialog printPreviewDialog1;
private System.Windows.Forms.PrintDialog printDialog1;
public System.Drawing.Printing.PrintDocument printDocument1;
// 预览
try
            {   
m_oDataGridPrinter = new DataGridPrinter(this.dataGrid_Brand, printDocument1, (DataTable)this.dataGrid_Brand.DataSource);
                this.printPreviewDialog1.ShowDialog();
catch
            {
                MessageBox.Show("没有找到打印机,不能预览!");
            }


// 打印
        public DialogResult Print()
        {
            try
            {
//                DataTable oDTTmp = (DataTable)this.dataGrid_Brand.DataSource;
//                if (oDTTmp==null || oDTTmp.Rows.Count<=0)
//                {
//                    MessageBox.Show("主窗口中没有数据,请进行\"查询\"或者\"显示所有\"等操作,将您要打印的数据显示在主窗口中,然后再进行打印!");
//                    return DialogResult.Cancel;                   
//                }
                m_oDataGridPrinter = new DataGridPrinter(this.dataGrid_Brand, printDocument1, (DataTable)this.dataGrid_Brand.DataSource);
               
                if (this.printDialog1.ShowDialog() == DialogResult.OK)
                {
                    this.printDocument1.Print();
                    return DialogResult.OK;
                }
                else
                {
                    return DialogResult.Cancel;
                }
            }
            catch
            {
                MessageBox.Show("没有找到打印机,不能打印!");
                return DialogResult.Cancel;
            }
            return DialogResult.OK;
        }

// 事件定义
this.printDocument1.DocumentName = "Brand";
            this.printDocument1.PrintPage += new System.Drawing.Printing.PrintPageEventHandler(this.printDocument1_PrintPage);

// 事件响应
private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)
        {                   
            e.HasMorePages = m_oDataGridPrinter.DrawDataGrid(e.Graphics);
            if (e.HasMorePages)
            {
                m_oDataGridPrinter.PageNumber += 1;
            }
            else
            {
                m_oDataGridPrinter.PageNumber = 1;
                m_oDataGridPrinter.RowCount = 0;
            }



// 基类定义
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports System.Drawing



Public Class DataGridPrinter

    Public RowCount As Integer = 0
    Public PageNumber As Integer = 1

    Private m_DataTable As DataTable
    Private m_DataGrid As DataGrid
    Private m_ImageArray(2) As Image

    Private m_PageWidth As Integer
    Private m_PageWidthMinusMargins As Integer
    Private m_PageHeight As Integer
    Private m_AdjColumnBy As Integer
    Private m_IsTooWide As Boolean
    Private m_DataGridWidth As Integer

    Private m_sSelectString As String

    Private Const c_TopMargin As Integer = 50
    Private Const c_BottomMargin As Integer = 50
    Private Const c_LeftMargin As Integer = 50
    Private Const c_RightMargin As Integer = 50
    Private Const c_VerticalCellLeeway As Integer = 10

    Public Sub New(ByVal dg As DataGrid, ByVal pd As PrintDocument, ByVal dt As DataTable)
        m_sSelectString = ""

        m_DataGrid = dg
        m_DataTable = dt

        @#set the document as landscape
        pd.DefaultPageSettings.Landscape = True

        @#extract our width and height values
        m_PageHeight = pd.DefaultPageSettings.PaperSize.Width
        m_PageWidth = pd.DefaultPageSettings.PaperSize.Height
        m_PageWidthMinusMargins = m_PageWidth - (c_LeftMargin + c_RightMargin)

        @#hard-coded images
        @#m_ImageArray(0) = Image.FromFile("images/major.gif")
        @#m_ImageArray(1) = Image.FromFile("images/medium.gif")
        @#m_ImageArray(2) = Image.FromFile("images/minor.gif")

        m_DataGridWidth = GetDataGridWidth()

        @#set up some adjustments to scale the output later
        If m_DataGrid.Width > m_PageWidthMinusMargins Then
            m_AdjColumnBy = m_DataGrid.Width - m_PageWidthMinusMargins
            m_DataGridWidth = m_DataGridWidth - m_AdjColumnBy
            m_IsTooWide = True
        Else
            m_AdjColumnBy = m_PageWidthMinusMargins - m_DataGrid.Width
            m_DataGridWidth = m_DataGridWidth + m_AdjColumnBy
            m_IsTooWide = False
        End If
    End Sub


    Public Sub New(ByVal dg As DataGrid, ByVal pd As PrintDocument, ByVal dt As DataTable, ByVal headString As String)
        m_sSelectString = headString

        m_DataGrid = dg
        m_DataTable = dt

        @#set the document as landscape
        pd.DefaultPageSettings.Landscape = True

        @#extract our width and height values
        m_PageHeight = pd.DefaultPageSettings.PaperSize.Width
        m_PageWidth = pd.DefaultPageSettings.PaperSize.Height
        m_PageWidthMinusMargins = m_PageWidth - (c_LeftMargin + c_RightMargin)

        @#hard-coded images
        @#m_ImageArray(0) = Image.FromFile("images/major.gif")
        @#m_ImageArray(1) = Image.FromFile("images/medium.gif")
        @#m_ImageArray(2) = Image.FromFile("images/minor.gif")

        m_DataGridWidth = GetDataGridWidth()

        @#set up some adjustments to scale the output later
        If m_DataGrid.Width > m_PageWidthMinusMargins Then
            m_AdjColumnBy = m_DataGrid.Width - m_PageWidthMinusMargins
            m_DataGridWidth = m_DataGridWidth - m_AdjColumnBy
            m_IsTooWide = True
        Else
            m_AdjColumnBy = m_PageWidthMinusMargins - m_DataGrid.Width
            m_DataGridWidth = m_DataGridWidth + m_AdjColumnBy
            m_IsTooWide = False
        End If
    End Sub


    Public Function DrawDataGrid(ByVal g As Graphics) As Boolean
        Try
            DrawPageHeader(g)
            Return DrawPageRows(g)
        Catch ex As Exception
            @#      MessageBox.Show(ex.Message.ToString())
            Return False
        End Try
    End Function

    Private Sub DrawPageHeader(ByVal g As Graphics)

        @#use this format when drawing later
        Dim cellFormat As New StringFormat
        cellFormat.Trimming = StringTrimming.Word
        cellFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit

        If m_sSelectString.Length > 0 Then

            @#temp width to draw this column
            Dim columnWidth As Integer = m_PageWidthMinusMargins - 10

            @#create a layout rectangle to draw within.
            Dim cellBounds As New RectangleF(c_LeftMargin + 12, c_TopMargin - 9, columnWidth, m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 3)

            g.DrawString(m_sSelectString, m_DataGrid.Font, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)

            @#create the header rectangle
            @#Dim headerBounds As New RectangleF(c_LeftMargin, c_TopMargin, m_PageWidthMinusMargins, m_DataGrid.HeaderFont.SizeInPoints + c_VerticalCellLeeway)
            Dim headerBounds As New RectangleF(c_LeftMargin + 12, c_TopMargin - 3 - 9 - 9 + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway, m_PageWidthMinusMargins - 10, m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 3)

            @#draw the header rectangle
            g.FillRectangle(New SolidBrush(m_DataGrid.HeaderBackColor), headerBounds)
        Else
            @#create the header rectangle
            @#Dim headerBounds As New RectangleF(c_LeftMargin, c_TopMargin, m_PageWidthMinusMargins, m_DataGrid.HeaderFont.SizeInPoints + c_VerticalCellLeeway)
            Dim headerBounds As New RectangleF(c_LeftMargin + 12, c_TopMargin - 9, m_PageWidthMinusMargins - 10, m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 3)

            @#draw the header rectangle
            g.FillRectangle(New SolidBrush(m_DataGrid.HeaderBackColor), headerBounds)

        End If



        Dim xPosition As Single = c_LeftMargin + 12 @# +12 for some padding

        @#find the column names from the tablestyle
        Dim cs As DataGridColumnStyle
        For Each cs In m_DataGrid.TableStyles(0).GridColumnStyles
            If cs.Width > 0 Then

                @#temp width to draw this column
                Dim columnWidth As Integer = cs.Width

                @#scale the summary column width
                @#note: just a quick way to fit the text to the page width
                @#this is not the best way to do this but it handles the most
                @#common ui path for this demo app
                If cs.MappingName = "TaskSummary" And m_IsTooWide Then
                    columnWidth -= m_AdjColumnBy
                ElseIf cs.MappingName = "TaskSummary" Then
                    columnWidth += m_AdjColumnBy
                End If

                If m_sSelectString.Length > 0 Then
                    @#create a layout rectangle to draw within.
                    Dim cellBounds As New RectangleF(xPosition, c_TopMargin - 9 + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 3, columnWidth, m_DataGrid.HeaderFont.SizeInPoints + c_VerticalCellLeeway)

                    @#draw the column name
                    g.DrawString(cs.HeaderText, m_DataGrid.HeaderFont, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
                Else
                    @#create a layout rectangle to draw within.
                    Dim cellBounds As New RectangleF(xPosition, c_TopMargin, columnWidth, m_DataGrid.HeaderFont.SizeInPoints + c_VerticalCellLeeway)

                    @#draw the column name
                    g.DrawString(cs.HeaderText, m_DataGrid.HeaderFont, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
                End If

                @#adjust the next X Pos
                xPosition += columnWidth
            End If
        Next


    End Sub

    Private Function DrawPageRows(ByVal g As Graphics) As Boolean

        @#Dim yPosition As Single = c_TopMargin + m_DataGrid.HeaderFont.SizeInPoints + (c_VerticalCellLeeway * 2)
        Dim yPosition As Single = c_TopMargin + m_DataGrid.PreferredRowHeight
        If m_sSelectString.Length > 0 Then
            yPosition += m_DataGrid.PreferredRowHeight
        End If

        @#use this format when drawing later
        Dim cellFormat As New StringFormat
        cellFormat.Trimming = StringTrimming.Word
        cellFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit

        Try
            If m_DataTable.DefaultView.Count <= 0 Then
                Dim xPosition As Single = c_LeftMargin + 12 @# +12 for some padding
                Dim cellBounds As New RectangleF(xPosition, yPosition, c_LeftMargin - c_RightMargin, m_DataGrid.PreferredRowHeight)
                g.DrawString("对不起,没有找到您需要打印的数据,请您确认程序主窗口中有您需要打印的数据!", m_DataGrid.Font, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
            End If
        Catch ex As Exception
            Dim xPosition As Single = c_LeftMargin + 12 @# +12 for some padding
            Dim cellBounds As New RectangleF(xPosition, yPosition, c_LeftMargin - c_RightMargin, m_DataGrid.PreferredRowHeight)
            g.DrawString("对不起,没有找到您需要打印的数据,请您确认程序主窗口中有您需要打印的数据!", m_DataGrid.Font, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
            Return False
        End Try



            @#loop each visible row
            Dim i As Integer = 0
            For i = RowCount To (m_DataTable.DefaultView.Count - 1)

                Dim xPosition As Single = c_LeftMargin + 12 @# +12 for some padding
                @#g.DrawLine(New Pen(m_DataGrid.GridLineColor, 1), xPosition - 3, yPosition - 3, xPosition - 3, yPosition + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 1)

                @#loop the columns of this row, if the column is visible
                @#then print the cell value
                Dim cs As DataGridColumnStyle
                For Each cs In m_DataGrid.TableStyles(0).GridColumnStyles
                    If cs.Width > 0 Then

                        @#temp width to draw this column
                        Dim columnWidth As Integer = cs.Width

                        @#scale the summary column width
                        @#note: just a quick way to fit the text to the page width
                        @#this is not the best way to do this but it handles the most
                        @#common ui path for this demo app
                        If cs.MappingName = "TaskSummary" And m_IsTooWide Then
                            columnWidth -= m_AdjColumnBy
                        ElseIf cs.MappingName = "TaskSummary" Then
                            columnWidth += m_AdjColumnBy
                        End If

                        @#create a layout rectangle to draw within.
                        @#Dim cellBounds As New RectangleF(xPosition, yPosition, columnWidth, m_DataGrid.Font.SizeInPoints + c_VerticalCellLeeway)
                        Dim cellBounds As New RectangleF(xPosition, yPosition, columnWidth, m_DataGrid.PreferredRowHeight)

                        @#draw the item value
                        If cs.MappingName = "商标图片" Then
                            Try
                                @#draw image


                                Dim by As Byte() = CType(m_DataTable.DefaultView.Item(i).Item(cs.MappingName), Byte())

                                Dim imageToDraw As Image
                                Dim oMemoryStream As System.IO.MemoryStream
                                oMemoryStream = New System.IO.MemoryStream(by, 0, by.Length)
                                @#oMemoryStream = New System.IO.MemoryStream((byte[])this.GetColumnValueAtRow(source, rowNum),  0, CType(m_DataTable.DefaultView.Item(i).Item(cs.MappingName), Byte))
                                @#oMemoryStream = New System.IO.MemoryStream(CType(m_DataTable.DefaultView.Item(i).Item(cs.MappingName), [] Byte), 0, CType(m_DataTable.DefaultView.Item(i).Item(cs.MappingName), Byte))

                                @#MemoryStream oMemoryStream=new MemoryStream((byte[])this.GetColumnValueAtRow(source, rowNum),0,((byte[])this.GetColumnValueAtRow(source, rowNum)).Length);

                                imageToDraw = System.Drawing.Image.FromStream(oMemoryStream)
                                g.DrawImage(imageToDraw, New Rectangle(xPosition, yPosition, 125, 36))
                                @#Select Case m_DataTable.DefaultView.Item(i).Item("PriorityText")
                                @#    Case "Major"
                                @#        g.DrawImage(m_ImageArray(0), New Point(Convert.ToInt32(cellBounds.X) - 5, Convert.ToInt32(cellBounds.Y)))
                                @#    Case "Medium"
                                @#        g.DrawImage(m_ImageArray(1), New Point(Convert.ToInt32(cellBounds.X) - 5, Convert.ToInt32(cellBounds.Y)))
                                @#    Case "Minor"
                                @#        g.DrawImage(m_ImageArray(2), New Point(Convert.ToInt32(cellBounds.X) - 5, Convert.ToInt32(cellBounds.Y)))
                                @#End Select

                            Catch ex As Exception
                            End Try
                        Else
                            @#draw as short date format or regular string
                            @#If m_DataTable.DefaultView.Item(i).Item(cs.MappingName).GetType() Is GetType(DateTime) Then
                            @#    g.DrawString(String.Format("{0:d}", m_DataTable.DefaultView.Item(i).Item(cs.MappingName)), m_DataGrid.Font, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
                            @#Else
                        cellBounds.Y = cellBounds.Y + 8
                        @#cellBounds.Height = cellBounds.Height - 8
                            Try
                                g.DrawString(CType(m_DataTable.DefaultView.Item(i).Item(cs.MappingName), String), m_DataGrid.Font, New SolidBrush(m_DataGrid.HeaderForeColor), cellBounds, cellFormat)
                                @#End If
                            Catch ex As Exception
                            End Try
                        cellBounds.Y = cellBounds.Y - 8
                        @#cellBounds.Height = cellBounds.Height + 8
                        End If

                        g.DrawLine(New Pen(m_DataGrid.GridLineColor, 1), xPosition, yPosition - 4, xPosition, yPosition + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 1)

                        @#adjust the next X Pos
                        xPosition += columnWidth

                    End If
                Next


                @#set the rowcount (which is used for a possible next page)
                RowCount += 1

                g.DrawLine(New Pen(m_DataGrid.GridLineColor, 1), m_PageWidthMinusMargins + c_LeftMargin - 1, yPosition - 4, m_PageWidthMinusMargins + c_LeftMargin - 1, yPosition + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 1)

                @#finished with this row, draw a nice line
                g.DrawLine(New Pen(m_DataGrid.GridLineColor, 1), c_LeftMargin + 12, yPosition + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 2, m_PageWidthMinusMargins + c_LeftMargin, yPosition + m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway - 2)

                @#adjust the next Y Pos
                @#yPosition += m_DataGrid.HeaderFont.SizeInPoints + c_VerticalCellLeeway + 3
                yPosition += m_DataGrid.PreferredRowHeight + c_VerticalCellLeeway + 3

                @#if at end of page exit out for next page
                If yPosition * PageNumber > PageNumber * (m_PageHeight - (c_BottomMargin + c_TopMargin)) Then
                    Return True
                End If
            Next


        Return False
    End Function

    Private Function GetDataGridWidth() As Integer
        Try
            Dim cs As DataGridColumnStyle
            Dim dgWidth As Integer = 0
            For Each cs In m_DataGrid.TableStyles(0).GridColumnStyles
                If cs.Width <> 0 Then
                    dgWidth = dgWidth + cs.Width
                End If
            Next
            Return dgWidth
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
下一篇：Dotnet总结（2）--访问ms sql server 数据库基类--2 >>
相关文章：
© 2006   www.java-asp.net