Print 1st page of PDF

[johnweidauer]

How do I Print the 1st page of a PDF? I currently use:

ShellExecute(hDesktop, "Print", "somefilename.pdf", vbNullString, "C:\",0)

but it prints it all when I just want the first page.

thanks

---edit---

the program used Crystal Report Application server, so i just used the export feature to word and used the word application object to print page 1, but thanks for all of the interest.

[Joacim Andersson]

If you have the Acrobat Reader then you could use the Acrobat Control for ActiveX. Put it on a Form and then call the LoadFile method followed by the PrintPages method.

[iPrank]

From some Google searches I've found that, Adobe doesn't support/approve using Acrobat Reader OCX in our projects.
It is there only to display pdf in IE.

Make sure it is leagal, if it is a commercial project or you want to distribute your project (even for free).

[dglienna]

Try PDFCreator. It is programmable for saving files. It might be good at printing files as well.

[Joacim Andersson]

From some Google searches I've found that, Adobe doesn't support/approve using Acrobat Reader OCX in our projects.
It is there only to display pdf in IE.

That was the most stupid thing I ever heard. In that case it would be legal to display it using the webbrowser control.

[iPrank]

Yep. That would be legal, but we'll need extra work.

Anyway, I found some needed info in PowerBasic forum. But for some reason the original poster has deleted all his threads on January 7th. Here is the Google cache:

http://72.14.203.104/search?q=cache:...n&ct=clnk&cd=1

In that page he said,

The wait is over. It's now officially legal to embed Adobe Reader
(ver 7) in your applications. Here's the link to Adobe IAC
reference:
http://partners.adobe.com/public/dev...CReference.pdf

You can use the AxAcroPDFLib.AxAcroPDF object and its methods.

[iPrank]

Something like this should work:

Private Sub Command1_Click()
    AcroPDF1.LoadFile "C:\MyPDFFile.pdf" 'Load a file
    AcroPDF1.printPages 1, 1 'Print first page
End Sub

[Joacim Andersson]

Something like this should work:

Private Sub Command1_Click()
    AcroPDF1.LoadFile "C:\MyPDFFile.pdf" 'Load a file
    AcroPDF1.printPages 1, 1 'Print first page
End Sub

Which is exactly what I suggested in my origional post

[iPrank]

Yes. That was your idea.

Anyway, johnweidauer has sloved his problem in other way. But I have found the new lincensing info when searching for him. Thanks to both of you.