Foxtable(狐表)用户栏目专家坐堂 → 自动生成PDF


  共有3317人关注过本帖树形打印复制链接

主题:自动生成PDF

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/5 8:45:00 [显示全部帖子]

旋转参考:
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=91470
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65593

可以利用Execl模板,或者专业报表放入图片,然后输出pdf:http://www.foxtable.com/webhelp/topics/2930.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/5 14:46:00 [显示全部帖子]

4楼的链接别人已经提供了项目和dll

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/5 14:47:00 [显示全部帖子]

扫描仪sdk的开发可以参考:http://www.foxtable.com/webhelp/topics/2417.htm,最好是让厂家提供.net的示例源码

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/6 20:31:00 [显示全部帖子]

Adobe Acrobat X Pro没有用过,我也不懂。

如果使用专业报表,把旋转后的图片给专业报表不就行了,都不需要保存

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
Dim bmp As New bitmap("f:\333.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
rm.Image = bmp '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/6 22:03:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/7 8:58:00 [显示全部帖子]

内存不足是因为一个程序使用和分配的内存是有限的,并不是电脑有多少内存都可以使用,Foxtable不是专业的图形处理软件,不会考虑到图形处理的内存分配问题,只能使用分辨率比较小的图片。把图片分辨率改小,然后使用后释放一下内存:

比如:
Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save("d:\缩略图.jpg",img.RawFormat)
bmp.Dispose

自己结合使用到专业报表中
[此贴子已经被作者于2019/9/7 8:58:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/7 9:37:00 [显示全部帖子]

就这样

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/6 8:50:00 [显示全部帖子]

手动旋转为纵向后另存为其它图片使用。

 回到顶部