以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表-打印图片问题,请教老师  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66856)

--  作者:mamuaiqing
--  发布时间:2015/4/15 0:20:00
--  专业报表-打印图片问题,请教老师

复杂图文

RenderText对象用于打印文本,该对象中的文本格式是统一的,不能分别设置。
RenderParagraph类型专门用于打印成段文本,而且段落中的文本格式可以不同,甚至可以图文混排。
我们先在命令窗口执行下面的代码,看看RenderParagraph的不同,然后我们再具体说明RenderParagraph。

Dim doc As New PrintDoc \'定义一个报表
Dim
rpar As New prt.RenderParagraph() \'定义一个段落对象
Dim
f As New Font(rpar.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体
rpar.Content.AddText("这是一个段落. 现在是正常文本. ")
rpar.Content.AddText("现在的文本是加粗的. ", f)
rpar.Content.AddText("这一句是红色的. ", Color.Red)
rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript)
rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red)
rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)
rpar.Content.AddText("现在又是正常的文本了. ")
rpar.Content.AddText("最后,我们来插入一个图标: ")
rpar.Content.AddImage(getimage("logon.ico"))
rpar.Content.AddText(".")
doc.body.Children.add(rpar)
Doc.Preview()

rpar.Content.AddImage(getimage("logon.ico")) 像这行代码一样,学生做了个像公章一样的图形,由系统生成二维码并创建二维码图片,想把二维码图片放在像公章一样的图形当中,这样可以实现吗?


--  作者:Bin
--  发布时间:2015/4/15 8:42:00
--  
可以


--  作者:狐狸爸爸
--  发布时间:2015/4/15 8:42:00
--  

当然可以,你把生成的二维码图片保存为一个文件,在专业报表打印就行。


--  作者:mamuaiqing
--  发布时间:2015/4/15 15:03:00
--  
不是这个意思,学生是说这里有两个图形,图形A跟图形B,在同一个单元格内图形B(二维码图形)叠在图形A上面,生成的二维码都不是一样的,所以需要两个图片放在一个单元格里,如图
--  作者:mamuaiqing
--  发布时间:2015/4/15 15:03:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150415150241.png
图片点击可在新窗口打开查看

--  作者:mamuaiqing
--  发布时间:2015/4/15 15:04:00
--  
这样用专业报表能够实现吗?
--  作者:有点酸
--  发布时间:2015/4/15 15:11:00
--  
可以,两个图片分别打印,调整好位置,叠加在一起就行。
--  作者:mamuaiqing
--  发布时间:2015/4/15 17:00:00
--  

OK,感谢老师,解决了