Hi, any news about split PDFs ? I install the 2016.3.1018 and add blank pages.
Thanks
Dim Provider1 As New Pdf.PdfFormatProviderDim Stream1 As Stream = File.OpenRead(ArqPDF)Dim Doc1 As RadFixedDocument = New Pdf.PdfFormatProvider(Stream1, FormatProviderSettings.ReadOnDemand).Import()Try Dim P As Integer = 1 Do While Doc1.Pages.Count > 0 Dim Provider2 As New Pdf.PdfFormatProvider Dim ArqPDF2 As String = "c:\temp\Pag" & Format(P, "0####") & ".pdf" Dim Stream2 As Stream = File.OpenWrite(ArqPDF2) Dim Doc2 As New RadFixedDocument Dim PagPDF As RadFixedPage = Doc1.Pages(0) Doc1.Pages.Remove(PagPDF) Doc2.Pages.Add(PagPDF) Provider2.Export(Doc2, Stream2) Stream2.Close() P = P + 1 LoopCatch ex As ExceptionEnd Try
