以文本方式查看主题
-
Foxtable(狐表)
(http://foxtable.com/bbs/index.asp)
--
专家坐堂
(http://foxtable.com/bbs/list.asp?boardid=2)
----
[已解决]报表窗口如何批量保存成PDF
(http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153892)
-- 作者:lfc2019
-- 发布时间: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
-- 作者:lfc2019
-- 发布时间: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