|
|

楼主 |
发表于 2-8-2008 03:45 PM
|
显示全部楼层
Imports System.Drawing.Printing
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Dim print As PrintDocument = New PrintDocument
AddHandler print.PrintPage, AddressOf Me.PrintPageHandler
print.Print()
End Sub
Private Sub PrintPageHandler(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
Dim bmp As Bitmap = New Bitmap(Panel1.Width, Panel1.Height)
Panel1.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))
e.Graphics.DrawImage(bmp, Point.Empty)
End Sub
 |
|