如何打印当前窗体

前几天在CSDN看到有朋友问到怎么打印 当前的窗体，今天有空，将这段代码发布出来提供给其他感兴趣的朋友参考！
在窗体的代码里面：
Imports System.Drawing.Printing  ‘导入这个命名空间

’这个方法被关联到打印文档的PrintPage事件
 Private Sub printhandler(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        e.Graphics.DrawImage(memoryImage, 0, 0)
    End Sub

’在窗体初始化 的时候将打印文档的该事件绑定到处理方法
AddHandler mPrintDoc.PrintPage, AddressOf printhandler

'声明几个变量
 Private WithEvents mPrintDoc As New PrintDocument
    Dim memoryImage As Bitmap

‘这里启动打印任务。
    public Function Print() As Boolean
        Try
            Dim myGraphics As Graphics = Me.CreateGraphics()   ’这个属性很重要，可以绘制出当前窗体，打印其实就是先画出要打印的东西，再将这个东西交给打印文档，打印文档类会负责与打印机的交互细节。可以将这个graphics理解为一张画布，使用铅笔钢笔或者调色板来画东西
            Dim s As Size = Me.Size
            memoryImage = New Bitmap(s.Width, s.Height, myGraphics)   ‘取得要打印的图片
            Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)  ’取得新的画布，画布上包含了指定大小的图片
            memoryGraphics.CopyFromScreen(PointToScreen(Me.Location).X, PointToScreen(Me.Location).Y, 0, 0, s)   ’将画布输出到打印机，注意PointToScreen方法，将会把窗体坐标转换成屏幕坐标，否则打印的窗体不符合要求
             '执行打印文档的打印方法，该方法会触发我们在初始化窗体时关联的事件
            mPrintDoc.Print()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return MyBase.Print()
    End Function

这样子就可以打印当前的窗体了。可以看到，打印文档所需要的资源都是在窗体内部进行提供的，可以继承printdocumnet类，这样的话就可以通过重写文档类的方法，将外部资源传入给类，从而不会跟界面代码纠缠在一起。