Print Specific Page from PDF File from Excel

[hext2003]

I have code like this in a module -


Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2

Then I call this with a button click:

Private Sub RePrint()
ShellExecute Me.hwnd, "open", "C:\MyFile.pdf", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

This opens my pdf file just fine. What I want it to do is Print Page "RePrintRecNum" where "RePrintRecNum" is the page to be printed. this document has 15,000 pages and I only need 1.

Then I want it to close the PDF file.

Any ideas?

 

[hext2003]

Sorry this is in the wrong place, I will put it under VB for Apps -