以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何打印图片?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25689)

--  作者:mamasong
--  发布时间: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() \'预览


--  作者:mamasong
--  发布时间: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


--  作者:mamasong
--  发布时间:2012/11/14 16:29:00
--  
我正琢磨呢,将原来代码的控件变成了pictureview,为什么执行不力呢。这个,貌似要研究一下了。。。再次感谢狐狸爸爸。。。图片点击可在新窗口打开查看