- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何打印图片？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25689)
-- 发布时间：2012/11/14 16:16:00
-- 如何打印图片？
小白设计了一个打印窗口，窗口里面插入了一个图片浏览器，绑定了数据库的扩展图片备注列，我想插入一个控件，单击控件可以预览打印图片浏览器中显示的图片，要如何编辑呢？
-- 发布时间：2012/11/14 16:18:00
--
做个按钮，按钮代码为：
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() \'预览
-- 发布时间：2012/11/14 16:22:00
--
明白了，代码我缺少了个变量的传递过程，怪不得我执行起来总是出现错误，十分感谢狐狸爸爸的支持与帮助，谢谢。。。
-- 发布时间：2012/11/14 16:24:00
--
如果是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
-- 发布时间：2012/11/14 16:29:00
--
我正琢磨呢，将原来代码的控件变成了pictureview，为什么执行不力呢。这个，貌似要研究一下了。。。再次感谢狐狸爸爸。。。
