前几天在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类,这样的话就可以通过重写文档类的方法,将外部资源传入给类,从而不会跟界面代码纠缠在一起。
在窗体的代码里面:
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类,这样的话就可以通过重写文档类的方法,将外部资源传入给类,从而不会跟界面代码纠缠在一起。