Is it possible with Excel (2010) VBA to append page (print range from sheet) to existing pdf?

Yes, it is possible.

Dave

I think it is possible. I have never personally tried it. See this link. :)

Topic: Merge multi PDF files from VBA
Link: http://vbcity.com/forums/t/143916.aspx

Sid

I'm working on the solution, now.  Do you have Acrobat Pro, or other software, or just Acrobat reader installed?

Dave

PS - I had found the same source, and was looking at that and:

http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx

http://www.exp-systems.com/forum_exp/forum_posts.asp?TID=194

Solution forcoming.

Dave

>>>Acrobat reader installed?

Dave I believe and I could be wrong but you cannot merge documents using just Acrobat reader. You will have to have a PRO.

Sid

Actually there are various options I'm working.  I just wanted to know what the Asker has installed, so I can tailor my response.

Response forthcoming, unless anyone has more questions, lol :)

Dave

On my machine Adobe Acrobat 9 Pro, but most machines have only Adobe Acrobat 9 or 10 Standard.

Of course, I'd prefer an Office only solution in order we can finally get rid off Adobe ;-)

>>>Of course, I'd prefer an Office only solution in order we can finally get rid off Adobe ;-)

Oops. No, I don't think there is 'Office Only' solution. You will have to take the help of a pdf writer from VBA :)

Sid

That's why I asked, and I'm searching for a PRO-independent way.  However, in the meantime and 90% likely we'll have to go this way, PRO may be required.  There are, however, "freeware" PRO-like solutions.

Let me finish my PRO-dependent version, and we can discuss if there is an alternative that's non-PRO or options for the "freeware" approach.

Ok?

Dave

as long as I can click one button in xls and start the code, I am happy, whether Adobe or not :o))
very happy, indeed.

In that case did you check the link that I gave above?

Sid

Hi Sid. I tried it, but it seems it is an old reference library.

'Relies on the Adobe Acrobat 6.0 Type Library

I have tons of acrobat ones, but not one worked with this code... (Distiller, PDFmaker, ...)

Ok I have Pro 9

Let me create a sample for you. I actually got stuck in a very important discussion :)

Sid

you have Pro 9 and it works? what library did you use then?

sorry I don't want to interrupt or steal time from that very important discussion ;-)

>>>you have Pro 9 and it works? what library did you use then?

No I haven't yet tried it. I am creating an application from scratch.

>>>Sorry I don't want to interrupt or steal time from that very important discussion ;-)

No it's not important. Was just joking. We were just having some fun in the Exhale Fun Thread

It sometime gets too monotonous here :)

Sid

stmoritz: I just realized that Dave has already started creating that app for you. Let's wait till he finishes.

Sid

@stmoritz - sorry its been a while - had to eat and take care of some work issues, lol....

I've finally got my side working correctly - was bombing on the code, which I modified and should work for both of us...

This is just a test for you to try out while I write the algorithm now to do what you want.  THIS POST IS NOT THE SOLUTION, JUST A TEST..

Private Sub MergePDF(sourceAppend As String, destStart As String, finishOut As String)
'Relies on the Adobe Acrobat X.X Type Library - just add Tools->References->Acrobat and it will work, accordingly
Dim objAcroApp As Object
Dim objCAcroPDDocDest As Object
Dim objCAcroPDDocSource As Object

    'Initialize the objects
    Set objAcroApp = CreateObject("AcroExch.App")

    Set objCAcroPDDocDest = CreateObject("AcroExch.PDDoc")
    Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")
    
    'Open Destination, all other documents will be added to this and saved with a new filename
    
    If objCAcroPDDocDest.Open(destStart) Then
        
        'Do your loop here to open subsequent documents that you want to add
        'Do
          'Open the source document that will be added to the destination
          objCAcroPDDocSource.Open (sourceAppend)
          If objCAcroPDDocDest.InsertPages(objCAcroPDDocDest.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
            MsgBox "Documents Merged!"
          Else
            '0 problem
          End If
          objCAcroPDDocSource.Close
        'loop
        
        objCAcroPDDocDest.Save 1, finishOut
        objCAcroPDDocDest.Close
        
    End If
    Set objCAcroPDDocSource = Nothing
    Set objCAcroPDDocDest = Nothing

End Sub
Sub testMerge()

    Call MergePDF("C:\Users\DMBW\Desktop\test.pdf", "c:\users\dmbw\desktop\testprint.pdf", "C:\users\dmbw\desktop\merged.pdf")
    
End Sub

Select allOpen in new window

So, if you've added Acrobat to your library reference, then take this code and modify the paths to the testMerge() code I wrote, test, and advise it works in your environment.

Real solution now in progress!

Dave

@stmoriz

PS - to add Acrobat reference library, just click on "Acrobat" in the Tools References, then the library will be added, assuming you have pro

It works even with Adobe Acrobat Standard 10, no need for Pro, just fyi.

(of course not just the reader)

thank you very much. excellent!

Thanks for the clarification.  Without more depth on the Acrobat script, I only had to go with the setup I had, rather than partitions.  Great to hear it works with Standard editions.  I need to explore the objects more and this was a great primer for me.

Dave

I need to explore the objects more and this was a great primer for me.

glad, that you were able to benefit as well!  :o)

Hello Dave,

i have a posted a question with regards to this:
https://www.experts-exchange.com/questions/27724205/Excel-Print-Question.html