以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动端生成报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160046)

--  作者:刘林
--  发布时间:2021/1/18 21:18:00
--  移动端生成报表
请问老师,如何在手机端用专业生报表代码生成报表并在手机端显示出来
--  作者:有点蓝
--  发布时间:2021/1/18 21:19:00
--  
http://www.foxtable.com/mobilehelp/topics/0290.htm
--  作者:刘林
--  发布时间:2021/1/18 21:39:00
--  
老师,报表如何用代码另存为图片?
--  作者:刘林
--  发布时间:2021/1/18 21:44:00
--  

实例三

可以将生成的报表保存为图片文件,例如:

Dim doc As New PrintDoc
Dim
rt As New prt.RenderText
rt
.Text = "Hello Foxtable"
rt
.Style.TextColor = Color.Red
rt
.Style.TextAngle = -45
doc
.Body.Children.Add(rt)
doc
.SaveImage("c:\\data\\abc.jpg")

需要注意的是,上面的代码执行后,你得到的图片文件名并不是"abc.jpg",而是:

abc_page1.jpg
abc_page2.jpg
abc_page3.jpg
...

报表的每一页都会生成一个独立的图片文件。

SaveImage可以设置图片的分辨率,其语法为:

SaveImage(Filename,Resolution)

FileName:   要保存的文件名
Resolution: 可选参数,用于设置图片分辨率,默认为150,数值越大,图片越清晰,当然文件尺寸也会越大




我找到了,但有个问题,每一页是一个学生的报表,我想每一页用对应学生的身份证命名文件怎么办?


--  作者:有点蓝
--  发布时间:2021/1/18 21:51:00
--  
方法1、SaveImage后,再按打印顺序给图片改名
2、一页一页输出,每一个学生单独调用上面的代码SaveImage

--  作者:刘林
--  发布时间:2021/1/18 22:09:00
--  
 rt7.Cells(9,0).SpanCols = 2
    rt7.cells(10,1).text = _usergroup
    rt7.cells(11,1).text = format(Date.Today,"y")
doc.SaveImage("c:\\data\\" & r("身份证件号") & ".jpg")
Next
doc.Preview() \'预览



我这样存是存起了起了,但预览就是空白了

--  作者:有点蓝
--  发布时间:2021/1/18 22:18:00
--  
不能同时使用。再说服务端程序预览给谁看?
--  作者:刘林
--  发布时间:2021/1/18 22:27:00
--  
我是想在C端有打印,同时生保存为对应的图片,传到服务器,移动端可调用生成的图片
--  作者:有点蓝
--  发布时间:2021/1/18 22:32:00
--  
打印、预览、和保存都要单独调用