i use the PDF-XChange Viewer in MS-Access with this Code
Code: Select all
Prg = C:\Program Files\Tracker Software\PDF Viewer\PDFXCview.exe
Path= C:\Users\dirA\dirB\dirC
PDF_File_Name = Path & "\" & File_Name & ".pdf"
PDF_Call= Prg & " " & PDF_File_Name
If Len(VBA.Dir(PDF_File_Name)) = 0 Then
MsgBox "File do not exist"
Else
'Shell (PDF_Call)
End If
Code: Select all
DoCmd.OpenForm "frm_PDF_View"
Forms!frm_PDF_View.AcroPDF1.Object.src = PDF_File_Name
PDF-XChange Viewer Controls v1.0 Type Library
is installed.
(Sorry, my English is not the best)
Thanks for help
Manfred