http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 11:34:07 +0000 Tue, 09 Mar 2010 11:59:42 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1364 http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ http://www.quickpdf.org/forum/spliting-and-merging_topic1364_post6217.html#6217 Author: Ingo
Subject: 1364
Posted: 09 Mar 10 at 11:59AM

Hi Pranav!

1. There are more than one solution. If it works then it's okay ;-)
2. There are many attributes (the used font for example) in a document. If you make 80 documents out of one then these attributes will be in each (80!) document. After the final merge these attributes will be multiple senseless in the new document.
3. QuickPDF offers functions to compress fonts and images. There are functions to strip the single documents before the merge (remove the fonts for example).

Have a look in the "general section"...
I've inserted a post "the first steps...".

Cheers and welcome here,
Ingo

]]> Tue, 09 Mar 2010 11:59:42 +0000 http://www.quickpdf.org/forum/spliting-and-merging_topic1364_post6217.html#6217 http://www.quickpdf.org/forum/spliting-and-merging_topic1364_post6216.html#6216 Author: pn_patel2002
Subject: 1364
Posted: 09 Mar 10 at 9:48AM

Hi,

I am trying to Split one multipage Pdf file into single pages and merge that splited pdfs' to a single PDF file using following methods.

Original file details: Size=3.50MB, Pages:80
Extract/split Obeservation: process time: 2 sec, size of all 80 files=5.02MB
Merge Obeservation: Process Time:1 Sec, Size =8.63MB

Private sub Extract()

Dim qp As New QuickPDFAX0718.PDFLibrary
                qp.UnlockKey(licenseKey)
                If qp.Unlocked = 1 Then
            Dim f As New OpenFileDialog
            f.Filter = "PDF Files|*.pdf"
            If f.ShowDialog = Windows.Forms.DialogResult.OK Then
             
                qp.LoadFromFile(f.FileName)
                           
                For i As Int32 = 1 To qp.PageCount

                    If qp.ExtractPages(i, 1) = 1 Then
                        qp.SaveToFile(Application.StartupPath & "\Extracted\Extract_Sample" & i.ToString & ".pdf")
                    End If
                    qp.LoadFromFile(f.FileName)
                Next
            End If
                      MsgBox("done")
        End If
end sub

Private sub Merge()

Dim qp As New QuickPDFAX0718.PDFLibrary
        qp.UnlockKey(licenseKey)
        If qp.Unlocked = 1 Then
            Dim d As New DirectoryInfo(Application.StartupPath & "\Extracted")
            Dim f() As FileInfo
            f = d.GetFiles()
            Dim outputfilename As String
            outputfilename = f(0).FullName
            For i As Int32 = 1 To f.Count - 1
                qp.MergeFiles(outputfilename, f(i).FullName, Application.StartupPath & "\Merge\test" & i & ".pdf")
                Application.DoEvents()
                outputfilename = Application.StartupPath & "\Merge\test" & i & ".pdf"
            Next
             MsgBox("Done")
        End If

end sub
Need assitance on:

1. Is it correct method for split/Merge?
2. If extracted pages total size is 5.02MB then why merged pdf file size increased?
3. How can I reproduce file after extracting to nearby its original size?


Pranav
]]> Tue, 09 Mar 2010 09:48:32 +0000 http://www.quickpdf.org/forum/spliting-and-merging_topic1364_post6216.html#6216