2个报表合并生成一个PDF文件

收藏

版主你好，我需要把2个报表合并生成一个PDF文件，使用了如下方法来实现：
rpt1.Run(False)
rpt2.Run(False)
For intPageIndex As Integer = 0 To rpt2.Document.Pages.Count - 1
rpt1.Document.Pages.Add(rpt2.Document.Pages(intPageIndex).Clone)
Next
Dim exptPDF As New PdfExport

exptPDF.Export(rpt1.Document, strFileNm)

现在出现了一个问题，2个报表中有"当前页数/总页数"，合并后生成的PDF文件中，页数还是各自排序的，
麻烦版主帮忙看一下，怎样能让页数重新生成？

KearneyKang · KearneyKang

您好，你现在是把报表1的PDF格式和报表2的PDF格式给拼接在了一起。现在拼接完成了，但是页码的显示还是跟报表未合并的时候展示的一样是这样吗？

dlerror · dlerror

KearneyKang 发表于 2020-7-30 12:25
您好，你现在是把报表1的PDF格式和报表2的PDF格式给拼接在了一起。现在拼接完成了，但是页码的显示还是跟报 ...

是的，希望页码能重新排列。

KearneyKang · KearneyKang

你合并PDF导出看的是这个博客进行操作的是吧：https://www.grapecity.com.cn/blogs/combinereport

您好，这个的话，因为合并导出PDF没办法进行一个自动进行页码的改变，那么在设计表二的页码的时候应该提前给表二进行一个表一总页码的相加。
因为PDF拼接只是对内容的一个拼接，但是不会改变具体展示的内容