主题：如何打印图片？

小白设计了一个打印窗口，窗口里面插入了一个图片浏览器，绑定了数据库的扩展图片备注列，我想插入一个控件，单击控件可以预览打印图片浏览器中显示的图片，要如何编辑呢？

做个按钮，按钮代码为：

 

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = e.Form.Controls("PictureBox1").Image
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

明白了，代码我缺少了个变量的传递过程，怪不得我执行起来总是出现错误，十分感谢狐狸爸爸的支持与帮助，谢谢。。。

如果是PictureViewer，那么代码改为：

 

 

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
If piv.SelectedItem IsNot Nothing Then
    Dim doc As New PrintDoc '定义一个报表对象
    Dim rm As New prt.RenderImage '定义一个图片对象
    rm.Image = getImage(piv.SelectedItem)
    rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    doc.Body.Children.Add(rm) '将图片对象加入报表
    Doc.Preview() '预览
End If

我正琢磨呢，将原来代码的控件变成了pictureview，为什么执行不力呢。这个，貌似要研究一下了。。。再次感谢狐狸爸爸。。。