如何用vb.net打印图象！！！！！！

[wshuang_8888]

我现在要给软件添加一个打印图象的功能，不知道在vb.net中如何写，请大家指点小弟一下。谢谢。

[不务正]

Private PrintPageSettings As New PageSettings
Private PagesetupDialog1 As New PageSetupDialog
Private PrintDocument1 As New Printing.PrintDocument
Private PrintPreviewDialog1 As New PrintPreviewDialog

'打印Picturebox1的图片
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawImage(Me.PictureBox1.Image, 0, 0)
End Sub

'页面设置
Private Sub btnPrintSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintSetup.Click
PagesetupDialog1.PageSettings = PrintPageSettings
PagesetupDialog1.ShowDialog()
' PrintPageSettings = PagesetupDialog1.PageSettings
End Sub

'打印
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
AddHandler PrintDocument1.PrintPage, AddressOf PrintDocument1_PrintPage
'载入当前页面设置
PrintDocument1.DefaultPageSettings = PagesetupDialog1.PageSettings
PrintDocument1.Print()
End Sub

'打印预览
Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
AddHandler PrintDocument1.PrintPage, AddressOf PrintDocument1_PrintPage
'载入当前页面设置
PrintDocument1.DefaultPageSettings = PrintPageSettings
'为打印预览载入文档
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub

[wangchong]

可以直接打印picbox