Foxtable(狐表)用户栏目专家坐堂 → foxtable 自带的PDF生成功能异常


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

主题:foxtable 自带的PDF生成功能异常

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/23 18:29:00 [显示全部帖子]

拷贝了150张,也没提示内存溢出。你电脑的设备的内存是多大的?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/24 10:57:00 [显示全部帖子]

 没办法,这个是有内存限制的。

 

 预览可以这样处理

 

'--------------------------------------------------------------对生成的图片进行批量处理,然后放入同一个PDF文件里面
Dim doc As New PrintDoc '定义一个报表对象
doc.PageSetting.Landscape = True '横向打印
'doc.PageSetting.PaperKind = 70 '纸张类型改为B5
doc.PageSetting.Width = 210 '纸张宽度为220毫米
doc.PageSetting.Height = 91 '纸张高度为110毫米
doc.PageSetting.LeftMargin = 1   '设置页边距
doc.PageSetting.RightMargin = 0
doc.PageSetting.TopMargin = 0
doc.PageSetting.BottomMargin = 0
'--------------------设置页面
'--------------------添加图片到PDF

Dim a As Integer = 0
For Each str As String In FileSys.GetFiles("c:\cutoff\")
    a = a + 1
    output.show(a & str)
    Dim rg As New prt.RenderGraphics()
    Dim bmp As new bitmap(str)
    rg.Graphics.DrawImage(bmp, 1, 1)
    rg.Width = "109%Parent"
    rg.Height = "100%Parent"
    Doc.Body.Children.Add(rg)
    bmp.dispose
Next

doc.Preview

 生成pdf的话,都会提示内存不足的,因为要转换成图片,整体保存为一个文件。

 

 或者换一种方法生成pdf

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70686&skin=0

 

下载信息  [文件大小:621.0 KB  下载次数:20]
图片点击可在新窗口打开查看点击浏览该文件:itextsharp 中文帮助文档.rar

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/25 12:28:00 [显示全部帖子]

转换代码,参考 http://converter.telerik.com/

 

 

 


 回到顶部