- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [已解决]报表窗口如何批量保存成PDF (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153892)
-- 发布时间：2020/8/26 18:06:00
-- [已解决]报表窗口如何批量保存成PDF
版主你好：
我有一个报表窗口，现在想把报表批量保存成PDF，现在只能在打印预览里面一张一张点打印预览然后保存成PDF。我想问一下有没有什么方法能批量保存成PDF。
打印预览代码如下：Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.Preview
此主题相关图片如下：9bc4ba46-5540-4442-b41b-a443b1f2d5a3.png
[此贴子已经被作者于2020/8/27 10:50:05编辑过]
-- 发布时间：2020/8/27 8:53:00
--
大概这样
for i as integer = 0 to tables("表A").rows.count - 1
tables("表A").position = i
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.SavePDF（"c:\\" & r("编号") & “.pdf”）
next
-- 发布时间：2020/8/27 9:38:00
--
有报错啊
此主题相关图片如下：qq图片20200827093714.jpg
-- 发布时间：2020/8/27 9:59:00
--
for i as integer = 0 to tables("表A").rows.count - 1
tables("表A").position = i
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.SavePDF（"c:\\" & tables("表A").rows(i)("编号") & “.pdf”）
next