I have a database of records where each record is for a page of a document. Each page has been scanned to a single page PDF file (let not go into why here :) )

What I would like to do is combine groups of these files into a multi page PDF using code. The front end to reDirect does an excellent job of this but processing 1,003,000 files into 10,000 new files would not be fun.

In short - does and one know how I could use the merge function in code?

Cool - that would be great.

No email recieved  If you sent a zip file it won't get though (needs to be a rar file to keep you firewall happy).

Thanks

John

Could you send me this sample too?
I would need this functionality too for a report generator which has to generate one pdf out of several documents.

Thx in Advance

Steve

I have a need to append to the end of a .pdf file from MS Access VBA.  We are using Access to generate a report that has several sections, each one is a separate report.  All go into one .pdf file.  Can you send me the Code of "Inner library fuctions".

Hi Michel,

 

Id love to get that code as well! It'll save me half a day of work.

 

Thanks!!

I would also like to receive the sample code or have it posted here.

Thanks.

Hi Michel,

I sent it. Cheers!

Done! 

Done!

Hi,

    OK. I see that what you are asking for is a bit more complicated than the standard merging.

    What you probably want then is access to a full PDF management library that will allow you to open a PDF, allow you to manage the pages, and then save the changes. I use a library called "QuickPDF" which is normally available here [www.isedquickpdf.com]. The cost is reasonable: $95. However their site has been down for a week or so, and they have not been supporting their library for over a year now. Their web site implies that the owners may be recreating their web site and re-opening soon.

    Nonetheless, the library is great: it is both fast and powerful. I have setup a "Fan Club" web site which contains a great bunch of users that help each other out. We are located here: [www.quickpdf.org]. Also, we have continued development of the library, fixed bugs, and added a few new features. There is a free 30 day trial period and I can provide you with a trial key if you need it. Just ask. I can probably let you know how to purchase a license even if their site is down, so let me know if that is what you want/need to do.

    Another alternative is the DynaPDF library which I sell on my web site. It is $399 and that library is fully supported. See my home web site here:[www.exp-systems.com]

    Apart from that, what you suggested should work: you could print each page individually, and then merge them all at the end in the right order. It might be a touch slower, but it should get you there at the lowest cost.

    Cheers!

Hi,

   Sorry for the late reply: I had not realized that you posted in the forum.

    Here is the sample code that you requested to use that function:

Private Sub Merge()
    Dim oPDF As New PDF_reDirect_Pro_Tool
    Dim Files_to_Merge(1) As String
    Dim TempBool As Boolean
   
    ' Files to Upload
    Files_to_Merge(0) = "C:\Temp\Delme.pdf"
    Files_to_Merge(1) = "C:\Temp\Buddy Time sign 3001.pdf"
   
    With oPDF
        TempBool = .Utility_Merge_PDF_Files("C:\MergeTest.pdf", Files_to_Merge)
       
        If Not TempBool Then
            ' NOTES ON ERROR CODES for oPDF.ErrorLastDLL
            ' 401 - One of the Input File could not be opened
            ' 410 - One of the Input File could not be decrypted
            MsgBox "An Error Occured: " & .LastErrorDescription & vbCrLf & _
                     "Error Number =" & Str$(.LastErrorNumber) & vbCrLf & _
                     "DLL Error Number =" & Str$(.ErrorLastDLL), _
                    vbExclamation
        Else
            MsgBox "Merge Successful.", vbInformation
        End If
    End With
    Set oPDF = Nothing
End Sub


     Cheers!

Hi,

    I rechecked the code, and I did not see anything obvious. I am assuming that you have PDF reDirect Pro also installed (some of the libraries that are part of PDF reDirect Pro are needed for the code to run).

    The sample code that you are running: are you using Word, or Excel?

    Which version of Windows are you running.

    Cheers!

Michel

Hi,

Hi Michel,

Hi there,

   I think you can get there with PDF reDirect, but honestly, you will be better served by using the same PDF library that I use in PDF reDirect. It is called QuickPDF Library, and you can find out more about it [here].

   In regards to "helping" with your project: unfortunately I do not offer this service for free. In addition, I am currently fully booked. However, you might be able to get some help by asking for some help from a professional programmer at www.vworker.com. You can post what you need as a small project. I think you will find the rates quite reasonable.

   I hope that helps.

   Cheers!

Hi Arasu,
 
   You are right: it looks like I deleted the sample code for merging PDF files together. Sorry about that. Here it is:

    Dim oPDF As New PDF_reDirect_v25001.Batch_RC_AXD
    Dim Files_to_Merge(1) As String
    Dim TempBool As Boolean
   
    ' Files to Upload
    Files_to_Merge(0) = "C:\Temp\FirstFile.pdf"
    Files_to_Merge(1) = "C:\Temp\SecondFile.pdf"
   
    With oPDF
       
        TempBool = .Utility_Merge_PDF_Files("C:\MergeTest.pdf", Files_to_Merge)
       
        If Not TempBool Then
            ' NOTES ON ERROR CODES for oPDF.ErrorLastDLL
            ' 401 - One of the Input File could not be opened
            ' 410 - One of the Input File could not be decrypted
            MsgBox "An Error Occured: " & .LastErrorDescription & vbCrLf & _
                     "Error Number =" & Str$(.LastErrorNumber) & vbCrLf & _
                     "DLL Error Number =" & Str$(.ErrorLastDLL), _
                    vbExclamation
        Else
            MsgBox "Merge Successful.", vbInformation
        End If
       
    End With
   
    Set oPDF = Nothing

   Also note that you can make teh array larger so taht you can merge 3, 4, or more files together.

   Cheers!


  

Hi,

    Thanks for the update. I found a bug in my code (my bad). I will post an updated version of the component later tonight. It will be v2.5.2.

   Hopefully this will get you going.

   Cheers!

Michel

For the sake of completeness, your reference to the ActiveX component changes as follows:

WAS: Dim oPDF As New PDF_reDirect_Pro_Tool

NEW: Dim oPDF As New PDF_reDirect_v25002.Batch_RC_AXD

    Your code had the old reference - which is why you were getting the error message in the first place. But you also need the bug fix for v2.5.2

   Cheers!

Michel

Hi,

   Here are the answers to your questions:

   1. PDF reDirect Freeware is free, forever. No popups, no warnings. Just free.

   2. PDF reDirect Pro is free for 90 days, then continues to work, but the PDF files have a watermark added to all the pages that says "www.exp-systems.com".

   3. You are correct: the VBA samples and the ActiveX DLL require the Pro version.

   One final point: PDF reDirect Pro is $19.99, but the price is reduced to $14.99 for August only, and will go back to $19.99 on September 1st at 1AM Eastern Standard Time.

   Cheers!

Michel

Hi,

    It sounds like it should work. Make sure that Page_3.pdf is not encrypted, or try changing the order, place "Page_3.pdf" first to see if the problem is with that file.

   Also, "Page3_.pdf" should actually contain the full path like this:

Files_to_Merge(2) = "C:\Temp\Page_3.pdf"


   It should work (I have sample code that works that does more than two documents), so I would check the obvious things first.

   let me know if the problem continues.

   Cheers!

Awesome! Thanks for the update, and for your kind words.

Cheers!

Hi,

   What is th 1st line that was giving the error? Was it "Option Explicit"? If so, that line really needs to be there.

   What this tells me is that for some reason, the ActiveX component is not registered properly on your system. I would look at manually registering the component by using the regsvr32 command line command.

   I hope that helps.

   Cheers!

Michel,