如何实现VB.NET 打印控件的使用

来源：互联网发布：维普考试软件编辑：程序博客网时间：2024/05/16 17:25

system.drawing.printing 命名空间
printerSettings 打印机设置类
PageSettings 页面设置类
PrintPageEventArgs 要打印页的设置信息类
一、打印图片（加入控件printdocument1方法）

[html] view plaincopyprint?
Public Class Form1  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Try  
            AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintGraphics  
            PrintDocument1.Print()  
        Catch ex As Exception  
            MsgBox(ex.Message)  
        End Try  
    End Sub  
  
    Private Sub PrintGraphics(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)  
        ev.Graphics.DrawImage(System.Drawing.Image.FromFile(TextBox1.Text), ev.Graphics.VisibleClipBounds)  
        ev.HasMorePages = False  
    End Sub  
End Class  

二、打印文字（创建对象printdocument方法）

[html] view plaincopyprint?
Public Class Form1  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Try  
            Dim printDoc As New System.Drawing.Printing.PrintDocument  
            AddHandler printDoc.PrintPage, AddressOf Me.PrintText  
            printDoc.Print()  
        Catch ex As Exception  
            MsgBox(ex.Message)  
        End Try  
    End Sub  
  
    Private Sub PrintText(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)  
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 11, FontStyle.Bold), Brushes.Black, 40, 40)  
        ev.HasMorePages = False  
    End Sub  
End Class  

上面两个方法都是简单的方法，但有重大的缺点：
1、字符串不会自动转行，也就是说过长的字符串会“打印”到页面的“外面”去；
2、只能打印一页。
下面来解决上面两个问题。
三、完美打印过长的字符串（占有几页）

描述：open按钮打开一个对话框，选择一个文件，并将文本反映到richtextbox上。同时激活print,再按，就执行打印。

[vb] view plaincopyprint?
Imports System.IO  
Imports System.Drawing.Printing  
  
Public Class Form1  
    Private PrintPageSettings As New PageSettings  
    Private StringToPrint As String  
    Private PrintFont As New Font("Arial", 10)  
  
    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click  
        Dim FilePath As String  
        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"  
        OpenFileDialog1.ShowDialog()  
        If OpenFileDialog1.FileName <> "" Then  
            FilePath = OpenFileDialog1.FileName  
            Try  
                Dim MyFileStream As New FileStream(FilePath, FileMode.Open)  
                RichTextBox1.LoadFile(MyFileStream, RichTextBoxStreamType.PlainText)  
                MyFileStream.Close()  
                StringToPrint = RichTextBox1.Text '初始化打印字符串  
                btnPrint.Enabled = True  
            Catch ex As Exception  
                MessageBox.Show(ex.Message)  
            End Try  
        End If  
    End Sub  
  
    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click  
        Try  
            '指定当前页设置  
            PrintDocument1.DefaultPageSettings = PrintPageSettings  
            '指定“打印”对话框的文档并显示  
            StringToPrint = RichTextBox1.Text  
            PrintDialog1.Document = PrintDocument1  
            Dim result As DialogResult = PrintDialog1.ShowDialog()  
            If result = DialogResult.OK Then  
                PrintDocument1.Print() '打印，并非由“打印”对话框控制.正如OpenFileDialog表现的形式一样。  
            End If  
        Catch ex As Exception  
            MessageBox.Show(ex.Message)  
        End Try  
    End Sub  
  
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage  
        Dim numChars As Integer  
        Dim numLines As Integer  
        Dim stringForPage As String  
        Dim strFormat As New StringFormat  
        '根据页面设置，定义可用的页面区域（打印区域）  
        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)  
        '定义区域，来确定一个页面可容纳多少文本，并使文本高度少一行，以免文本被减短  
        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))  
  
        '处理长字符串时，按单词进行断开（换行）  
        strFormat.Trimming = StringTrimming.Word  
        '用MeasureString计算出可容纳的字符串个数numChars和行数numLines  
        e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)  
        '计算出适应页面的字符串  
        stringForPage = StringToPrint.Substring(0, numChars)  
        '（逻辑上）在当前页打印字符串  
        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)  
        '若还有需要打印的文本，则继续处理剩下的页面  
        If numChars < StringToPrint.Length Then  
            '删除已经打印的字符串  
            StringToPrint = StringToPrint.Substring(numChars)  
            e.HasMorePages = True  
        Else  
            e.HasMorePages = False  
            StringToPrint = RichTextBox1.Text  
        End If  
    End Sub  
End Class  

开始读了N久没明白什么意思？看了一下午，再逐条进行调试才明白原来打印的原理是这样的：
1、首先Printdialog1打印对话框，只是设置选择哪个打印机，用哪种方式来打印（通过PrintDialog1.Document = PrintDocument1来进行关联），与具体打印的字符串无关。
2、关键：PrintPage事件发生在打印“当前”页面，也就是说打印3页，这个事件就会发生3次。每次可以通过此事件来设置页面内容（逻辑上）。这样就可以控制打印多页。
3、通过MeasureString来计算每页可容纳的字符串和行数，这样就很好的控制每页的具体字符串，循环这个方法计算剩下的字符进行每页设置并打印。
再增加两个按钮，一个页面设置，一个是页面预览，代码如下：

[vb] view plaincopyprint?
Private Sub btnSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetup.Click  
    Try '页面设置  
        PageSetupDialog1.PageSettings = PrintPageSettings  
        PageSetupDialog1.ShowDialog()  
    Catch ex As Exception  
        MessageBox.Show(ex.Message)  
    End Try  
End Sub  
  
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click  
    Try '页面预览  
        PrintDocument1.DefaultPageSettings = PrintPageSettings  
        StringToPrint = RichTextBox1.Text  
        PrintPreviewDialog1.Document = PrintDocument1  
        PrintPreviewDialog1.ShowDialog()  
    Catch ex As Exception  
        MessageBox.Show(ex.Message)  
    End Try  
End Sub  

0 0