troubleshooting Question

Open and Print PDF file

Avatar of kriskyk
kriskyk asked on
Microsoft AccessAdobe Acrobat
7 Comments1 Solution2154 ViewsLast Modified:
I'm trying to get a specific PDF to open and print. Using the code below I am able to get the desired PDFs to open but not print. I've looked at many examples and they appear to be using objects not availible in my library. I've added the following libraries:
Adobe Acrobat 8.0 Type Library
Acrobat Access 3.0 Type Library
Adobe Acrobat 8.0 Browser Control Type Library 1.0
AcroIEHelper 1.0 Tpye Library

Any help with the code or any additional libraries that I'm not using will be greatly appreciated.
Option Compare Database
 
 
Private Const SW_SHOWNORMAL = &H1&
 
Private Declare Function ShellExecuteA Lib "shell32" ( _
  ByVal hwnd As Long, _
  ByVal lpszOp As String, _
  ByVal lpszFile As String, _
  ByVal lpszParams As String, _
  ByVal LpszDir As String, _
  ByVal FsShowCmd As Long) As Long
 
 
Public Sub OpenPDF(ByVal szPDFLocation As String)
  
  Dim Success As Long
  
  ' If the function succeeds, it returns a value greater than 32.
  Success = ShellExecuteA(0, "open", szPDFLocation, vbNullString, vbNullString, SW_SHOWNORMAL)
  
  If Success > 32 Then
    
    Debug.Print "Success"
    
  Else
    ' For a list of error codes.
    ' http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx
    Debug.Print "Error= " & Success
    
  End If
 
End Sub
 
 
Private Sub Command1_Click()
Dim NameOfPDF As String
Dim AVDoc As AcroAVDoc
 
 
NameOfPDF = 9814634 'to be replaced by a passed varible
OpenPDF "H:\Accounting\Finance-Sales & Marketing\SDamm\WIP\USFS MOD\Downloads\INVOICES\" & NameOfPDF & "-1.pdf"
OpenPDF "H:\Accounting\Finance-Sales & Marketing\SDamm\WIP\USFS MOD\Downloads\INVOICES\" & NameOfPDF & "-2.pdf"
 
End Sub
ASKER CERTIFIED SOLUTION
msacc97

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 7 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 7 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros