In This Topic
Programming / PDF / Splitting PDF documents by number of pages

Splitting PDF documents by number of pages

In This Topic

In this example, we will see how to split a multipage PDF document into separate PDF documents that will contain the same number of pages. You can also examine how to optimize the file size of resulting PDF documents by reducing redundant resources and using packing option when saving documents.

Copy Code 
'We assume that GdPicture has been correctly installed and unlocked.
Dim src_pdf As New GdPicturePDF()
Dim dest_pdf As New GdPicturePDF()
If (src_pdf.LoadFromFile("source.pdf", False) = GdPictureStatus.OK) AndAlso
    (dest_pdf.NewPDF() = GdPictureStatus.OK) Then
    Dim filename As String = "dest", filetype As String = ".pdf"
    Dim pageCount As Integer = src_pdf.GetPageCount()
    If src_pdf.GetStat() = GdPictureStatus.OK Then
        Dim quotient As Integer = 0, remainder As Integer = 0
        For i As Integer = 1 To pageCount
            If dest_pdf.ClonePage(src_pdf, i) = GdPictureStatus.OK Then
                quotient = Math.DivRem(i, 3, remainder)
                If remainder = 0 Then
                    If (dest_pdf.RemoveUnusedResources() <> GdPictureStatus.OK) OrElse
                       (dest_pdf.SaveToFile(filename + quotient.ToString() + filetype, True) <> GdPictureStatus.OK) OrElse
                       (dest_pdf.CloseDocument() <> GdPictureStatus.OK) OrElse
                       (dest_pdf.NewPDF() <> GdPictureStatus.OK) Then
                        MessageBox.Show("Error occurred when handling destination file. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Exit For
                    End If
                End If
            Else
                MessageBox.Show("Error occurred when cloning the page. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit For
            End If
        Next
        If remainder <> 0 Then
            If (dest_pdf.RemoveUnusedResources() = GdPictureStatus.OK) AndAlso
               (dest_pdf.SaveToFile(filename + (quotient + 1).ToString() + filetype, True) = GdPictureStatus.OK) AndAlso
               (dest_pdf.CloseDocument() = GdPictureStatus.OK) Then
                MessageBox.Show("Done!", "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Error occurred when saving the last destination file. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            MessageBox.Show("Error occurred when cloning the page. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    Else
        MessageBox.Show("Error occurred in GetPageCount() method. Status: " + src_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
Else
    MessageBox.Show("The documents can't be loaded or created.", "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
src_pdf.Dispose()
dest_pdf.Dispose()
Copy Code 
//We assume that GdPicture has been correctly installed and unlocked.
GdPicturePDF src_pdf = new GdPicturePDF();
GdPicturePDF dest_pdf = new GdPicturePDF();
if ((src_pdf.LoadFromFile("source.pdf", false) == GdPictureStatus.OK) &&
    (dest_pdf.NewPDF() == GdPictureStatus.OK))
{
    string filename = "dest", filetype = ".pdf";
    int pageCount = src_pdf.GetPageCount();
    if (src_pdf.GetStat() == GdPictureStatus.OK)
    {
        int quotient = 0, remainder = 0;
        for (int i = 1; i <= pageCount; i++)
        {
            if (dest_pdf.ClonePage(src_pdf, i) == GdPictureStatus.OK)
            {
                quotient = Math.DivRem(i, 3, out remainder);
                if (remainder == 0)
                {
                    if ((dest_pdf.RemoveUnusedResources() != GdPictureStatus.OK) ||
                        (dest_pdf.SaveToFile(filename + quotient.ToString() + filetype, true) != GdPictureStatus.OK) ||
                        (dest_pdf.CloseDocument() != GdPictureStatus.OK) ||
                        (dest_pdf.NewPDF() != GdPictureStatus.OK))
                    {
                        MessageBox.Show("Error occurred when handling destination file. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
                        break;
                    }
                }
            }
            else
            {
                MessageBox.Show("Error occurred when cloning the page. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
                break;
            }
        }
        if (remainder != 0)
        {
            if ((dest_pdf.RemoveUnusedResources() == GdPictureStatus.OK) &&
                (dest_pdf.SaveToFile(filename + (quotient + 1).ToString() + filetype, true) == GdPictureStatus.OK) &&
                (dest_pdf.CloseDocument() == GdPictureStatus.OK))
            {
                MessageBox.Show("Done!", "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
            else
            {
                MessageBox.Show("Error occurred when saving the last destination file. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }
        else
            MessageBox.Show("Error occurred when cloning the page. Status: " + dest_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    else
        MessageBox.Show("Error occurred in GetPageCount() method. Status: " + src_pdf.GetStat().ToString(), "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
else
    MessageBox.Show("The documents can't be loaded or created.", "Document Splitter", MessageBoxButtons.OK, MessageBoxIcon.Error);
src_pdf.Dispose();
dest_pdf.Dispose();