没办法,这个是有内存限制的。
预览可以这样处理
'--------------------------------------------------------------对生成的图片进行批量处理,然后放入同一个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