求在vb.net中打印图片的代码

谢谢 --------------------编程问答--------------------

'将图片另存下再打印

 Me.PictureBox1.Image.Save("C:\Documents and Settings\Administrator\桌面\1.jpg")

--------------------编程问答-------------------- 使用PrintDialog ，PrintDialog 是一个预先配置的对话框，可在基于 Windows 的应用程序中用于选择打印机、选择要打印的页以及确定其他与打印相关的设置。


将你要打印的图像传到PrintDialog 里相应属性里面就可以用ShowDialog方法了 --------------------编程问答-------------------- 呵呵。才20分。我给100分。求详细的打印代码。
不过，应该是把图片画到打印文件里面。类似下面的界面，我把图片画到窗口上面了。
稍微修改一下，打印到PrintDocument，应该可以的。
--------------------编程问答-------------------- Private pDocument As New System.Drawing.Printing.PrintDocument 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        AddHandler pDocument.PrintPage, AddressOf pDocument_PrintPage 
        pDocument.Print() 
    End Sub 

    Private Sub pDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) 
        e.Graphics.DrawImage(PictureBox1.Image, 0, 0) 
    End Sub --------------------编程问答--------------------

引用 4 楼 qshurufa 的回复:

Private pDocument As New System.Drawing.Printing.PrintDocument

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         AddHandler pDocument.PrintPage, AddressOf pDocument_PrintPage
         pDocument.Print()
     End Sub

     Private Sub pDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
         e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
     End Sub

经过验证，楼上的写法中：
e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
在我的机器上，应该改为：
e.Graphics.DrawImage(PictureBox1.InitialImage, 0, 0)
否则会报错。

补充：.NET技术 ,  VB.NET