<< How to merge/join/append/concatenate files in VB6 with FileSystemObject | Home | AJAX 101 >>

concatenate PDF files with WebSuperGoo ABCpdf

Approach 1:

Public Sub DoPDFAppend()

    If SummaryFileName = "" Then Exit Sub
    On Error GoTo ReportErrorHandler
    '-------------------------------------------------------
    ' PDF $ Append OneFile_Bookmark_ByAccount_ByReport
    '-------------------------------------------------------
    Dim ii As Integer
    Dim totalFileCount As Integer
    totalFileCount = UBound(PDFFileArray) + 1
    For ii = 0 To UBound(PDFFileArray)
        Dim thisFileNumber As Integer
        thisFileNumber = ii + 1
        Status_update "Concatenating " & CStr(thisFileNumber) & " of " & CStr(totalFileCount), ""
        '-------------------------------------------------------
        ' fetch currentSegmentFileName from array
        '-------------------------------------------------------
        Dim currentSegmentFileName As String
        currentSegmentFileName = PDFFileArray(ii)

        Dim myReportName As String
        myReportName = ReportNameArray(ii)


        '-------------------------------------------------------
        ' PDF Append OneFile_Bookmark_ByAccount_ByReport
        '-------------------------------------------------------
        Dim Account_num8 As String
        Account_num8 = Left(PDFAcctArray(ii), 8)

        Dim docSegment As New ABCpdf6.Doc
        Dim docSummary As New ABCpdf6.Doc

        '-------------------------------------------------------
        ' 1st segment?
        '-------------------------------------------------------
        Dim bookmarkPage As Integer
        If ii = 0 Then

            '-------------------------------------------------------
            'yes, read first segment
           '-------------------------------------------------------
            docSegment.Read currentSegmentFileName

            '-------------------------------------------------------
            'append current segment to empty docSummary
            '-------------------------------------------------------
            docSummary.Append docSegment

            bookmarkPage = 1

        Else
            '-------------------------------------------------------
            'nth segment
            'read current segment
            'into docSegment
            '-------------------------------------------------------
            docSegment.Read currentSegmentFileName

            '-------------------------------------------------------
            'bookmarkPage = docSummary.pageCount
            'e.g.
            'if docSummary.pageCount = 10
            ' bookmarkPage = 11
            ' docSummary.page range = 1 - 10
            'page 11 does not exist yet, but will exist after next append
            '-------------------------------------------------------

            bookmarkPage = docSummary.PageCount + 1
            '-------------------------------------------------------
            'append current segment to previous segment(s)
            '-------------------------------------------------------
            docSummary.Append docSegment
        End If


        '-------------------------------------------------------
        'add bookmark to first page of current segment
        '-------------------------------------------------------
        docSummary.PageNumber = bookmarkPage
        If prevAccountNumber <> Account_num8 Then
            docSummary.AddBookmark Account_num8, True
            Debug.Print ("-----" + Account_num8)
            prevAccountNumber = Account_num8
            docSummary.AddBookmark Account_num8 + "\" + myReportName, False
            Debug.Print ("-----" + Account_num8 + "\" + myReportName)
        Else
            docSummary.AddBookmark Account_num8 + "\" + myReportName, False
            Debug.Print ("- - -" + Account_num8 + "\" + myReportName)
        End If

        '-------------------------------------------------------
        'set docSegment = nothing so file can be re-written from docSum
        'then docSum save
        '-------------------------------------------------------
        Set docSegment = Nothing
       '-------------------------------------------------------
        'delete 1st or nth pdf Segment file
        '-------------------------------------------------------
        Kill (currentSegmentFileName)
    Next 'currentSegmentFileName

    '-------------------------------------------------------
    'End PDF Append FileByReport_BookmarkByAccount
    '-------------------------------------------------------
    docSummary.Save (SummaryFileName)
    Set docSummary = Nothing

    Status_update "Done Concatenation to file: " + SummaryFileName, ""

Exit Sub

ReportErrorHandler:

MsgBox (Err.Description)

End Sub

Approach 2:

    '-------------------------------------------------------
    'PDF Append
    '-------------------------------------------------------
    Dim currentSegmentFileName As String
    currentSegmentFileName = crxReport.ExportOptions.DiskFileName
    Debug.Print ("***currentSegmentFileName =" + currentSegmentFileName)
    Set crxReport = Nothing

    '-------------------------------------------------------
    ' PDF Append OneFile_Bookmark_ByAccount_ByReport
    '$ Append
    '-------------------------------------------------------
    Dim Account_num8 As String
    Account_num8 = Left(Account_num, 8)
    DoEvents
    If NumOfRecs > 0 Then

        '-------------------------------------------------------
        'build SummaryFileName
        '-------------------------------------------------------
        'SummaryFileName = Output_Folder + Prev_Business_Date_Str + "_PDF_Summary_OneFile_Bookmark_ByAccount_ByReport_" + appendDate + "_" + appendTime + FileExt
        'SummaryFileName = Output_Folder + Prev_Business_Date_Str + "_PDF_Summary_OneFile_Bookmark_ByAccount_ByReport" + FileExt
        SummaryFileName = Output_Folder + Prev_Business_Date_Str + "_Reports_Summary_" + appendDate + FileExt

        Debug.Print ("***SummaryFileName =" + SummaryFileName)
        If prevAccountNumber = "" Then
            On Error Resume Next
            Kill SummaryFileName
            On Error GoTo ReportErrorHandler
        End If

        Dim doc12 As New ABCpdf5.Doc
        Dim doc22 As New ABCpdf5.Doc
        Dim docSum2 As New ABCpdf5.Doc

        '-------------------------------------------------------
        'read previous segment(s)
        'into doc 12
        '(if not opened previously, error will occur)
        '-------------------------------------------------------
        On Error GoTo FileNeverCreatedInFirstPlace2
        doc12.Read SummaryFileName
        On Error GoTo ReportErrorHandler

        Debug.Print ("doc12.PageCount: " + CStr(doc12.PageCount))
        '-------------------------------------------------------
        'append previous segment(s)
        'into docSum2 where bookmarking happens)
        '(since read was done from doc12, save done from docSum)
        '-------------------------------------------------------
        Debug.Print ("docSum2.PageCount before append: " + CStr(docSum2.PageCount))
        DoEvents
        docSum2.Append doc12
        DoEvents
        Debug.Print ("docSum2.PageCount after append: " + CStr(docSum2.PageCount))
        Debug.Print ("doc12.PageCount: " + CStr(doc12.PageCount))
        Debug.Print ("doc22.PageCount: " + CStr(doc22.PageCount))

        '-------------------------------------------------------
        'read current segment
        'into doc 22
        '-------------------------------------------------------
        DoEvents
        Debug.Print ("doc22.PageNumber: " + CStr(doc22.PageNumber))
        doc22.Read currentSegmentFileName
        Debug.Print ("doc22.PageNumber: " + CStr(doc22.PageNumber))
        DoEvents

        '-------------------------------------------------------
        'bookmarkPage = docSum2.pageCount
        'e.g.
        'if docSum2.pageCount = 10
        '   bookmarkPage = 11
        '   docSum2.page range = 1 - 10
        'page 11 does not exist yet, but will exist after next append
        '-------------------------------------------------------
        Dim bookmarkPage As Integer
        bookmarkPage = docSum2.PageCount + 1

        '-------------------------------------------------------
        'append current segment to previous segment(s)
        '-------------------------------------------------------
        DoEvents
        docSum2.Append doc22
        DoEvents

        '-------------------------------------------------------
        'point to first page of current segment
        '-------------------------------------------------------
        docSum2.PageNumber = bookmarkPage

        '-------------------------------------------------------
        'add bookmark to first page of current segment
        '-------------------------------------------------------
        If prevAccountNumber <> Account_num8 Then
            docSum2.AddBookmark Account_num8, True
            Debug.Print ("-----" + Account_num8)
            prevAccountNumber = Account_num8
            docSum2.AddBookmark Account_num8 + "\" + Report_Output, False
            Debug.Print ("-----" + Account_num8 + "\" + Report_Output)
        Else
            docSum2.AddBookmark Account_num8 + "\" + Report_Output, False
            Debug.Print ("- - -" + Account_num8 + "\" + Report_Output)
        End If

        '-------------------------------------------------------
        'set doc12 = nothing so file can be re-written from docSum
        'then docSum save
        '-------------------------------------------------------
        Set doc12 = Nothing
        Set doc22 = Nothing
        docSum2.Save SummaryFileName

        '-------------------------------------------------------
        'done nth segment
        '-------------------------------------------------------
        Set docSum2 = Nothing
        GoTo DoneAppend2

FileNeverCreatedInFirstPlace2:
        '-------------------------------------------------------
        'read first segment
        'into doc 12
        'then AddBookmark
        'then save
        '-------------------------------------------------------
        On Error GoTo ReportErrorHandler
        doc12.Read currentSegmentFileName
        If prevAccountNumber <> Account_num8 Then
            doc12.AddBookmark Account_num8, True
            Debug.Print ("-----" + Account_num8)
            prevAccountNumber = Account_num8
            doc12.AddBookmark Account_num8 + "\" + Report_Output, True
            Debug.Print ("-----" + Account_num8 + "\" + Report_Output)
        Else
            doc12.AddBookmark Account_num8 + "\" + Report_Output, True
            Debug.Print ("- - -" + Account_num8 + "\" + Report_Output)
        End If

        doc12.Save SummaryFileName

        '-------------------------------------------------------
        'done 1st segment
        '-------------------------------------------------------
        Set doc12 = Nothing
        Set doc22 = Nothing
        Set docSum2 = Nothing

DoneAppend2:
    End If
    '-------------------------------------------------------
    'End PDF Append FileByReport_BookmarkByAccount
    '-------------------------------------------------------

    '-------------------------------------------------------
    'delete pdf Segment file
    '-------------------------------------------------------
    Kill currentSegmentFileName

Print | posted on Thursday, January 18, 2007 4:16 AM

Comments

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

escort shanghai

We will offer you escort shanghai

Posted @ 12/23/2008 7:40 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

artist

thank you for this post. it is very useful.
www.paintmyphotonow.com

Posted @ 12/25/2008 2:08 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

[url=http://www.presente.jp/lasik]レーシック保険[/url]

Posted @ 1/4/2009 12:00 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

meinenda

good post.thanks.

a gift box&gift packaging designer

Posted @ 2/15/2009 3:29 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

onlinestorein

Yeah,Great article, This is very good tip byWholesaleORChina Wholesale

Posted @ 2/19/2009 2:24 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

wholesale products

Yeah,Great article, This is very good tip bywholesale productsORbbs

Posted @ 3/5/2009 6:26 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

hdtv antenna

Great information!
indoor antenna

Posted @ 3/21/2009 9:32 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

sunny

Great information! cheap uggs

Posted @ 5/23/2009 7:23 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

tom

thank you for this post. it is very usefulnfl jersey

Posted @ 5/23/2009 11:27 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

22222222

<br>Bvlgari women Watches

Posted @ 7/10/2009 2:05 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

<br>Rolex Ladies guess Watches <br>Tudor casio Watches

Posted @ 7/10/2009 2:06 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

The Best Products

Yeah,Great article, This is very good tip by the best products | price cheap sale

Posted @ 7/15/2009 12:58 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

Jumepr

Whether we approve it or not, sometime in our lives, we would require to carry out term papers and other written activity. It is absolutely not accessible but very alluring to make a analyze about WebSuperGoo ABCpdf. To do that, you need to read a range of articles and books, or you can just order some kind of work and then use plagiarism check finished by http://www.plagiarismsearch.com and save your time like some quick help with the American Dream.

Posted @ 9/3/2009 9:00 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

John Smith

Writing services finish the best argument essay writing about VB and the very interesting texts just about why us, people will surely have with no money!

Posted @ 9/24/2009 5:39 AM

# Г-жа

Roders wqwqw

The essay writing just about WebSuperGoo ABCpdf, you will see at the essay writing services. Buy the term paper and custom essay just about WebSuperGoo ABCpdf.

Posted @ 9/30/2009 11:03 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

Alex

Yeah clearly very
conducive for the people it was pleasant to read about PDF files with WebSuperGoo ABCpdf! If you need to get a great job firstofall you need resume company. Study and don't forget - if you have to work and study at the same time, there areexperts who are ready to guidance you with your resume when you under time heaviness and looking for a great job.

Posted @ 10/5/2009 1:56 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

peterpan13

It's not so easy to make a great custom essay, essentially if you are occupied. I consult you to find buy essays and to be spare from query that your work will be done by custom writing services

Posted @ 10/13/2009 1:43 AM

# plagiarism

David Ghetta

I will order already written essays about operations with PDF files, using the support the research paper writing service. You definately will need use plagiarism detection. Now, you don’t have to worry about getting a failing mark simply because you have been accused of plagiarizing someone else’s work.

Posted @ 10/13/2009 7:42 AM

# Проф

sasha Narmol

Students have an opportunity buy the written essays and buy custom essay papers at the essay writing services about community.

Posted @ 10/15/2009 6:07 PM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

John Smith

That should be not easy to accomplish good example thesis connecting with WebSuperGoo with your efforts only! My own suggestion is to determine the trustworthy buy dissertation service and other way, you have an opportunity to buy thesis theme at thesis writing services.

Posted @ 10/30/2009 5:42 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

passion666

Cool data close to this post! I think, it’s worth to buy essay to have a result!

Posted @ 11/11/2009 5:43 AM

# uggs on sale

discount UGG Boots

Thanks for taking the time to check us out. Here I will be happy to recommend some cheap sale informations.
Ugg Shoes online store, you could enjoy low price sexy cheap Ugg Boots and the best service from www.cosycentral.com

Posted @ 11/18/2009 11:30 AM

# re: How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf

Joan18

I am affected because of the very good articles just about this good post. You did it as the freelance writers , so, you did deserve the best award for it, I guess!

Posted @ 11/19/2009 9:56 AM

Title:
Name:
Email:
Website:
Comment:
Verification:
	Remember Me?

My Links

News

Recent Comments

How to merge/join/append/concatenate PDF files with WebSuperGoo ABCpdf