You can find the location on any computer by searching the registry. I found mine in: C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe
I expect there are VBA snippets that will find this for you.
Duane Hookom, MVP
MS Access
To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Sun, 12 Apr 2015 08:03:44 -0700
Subject: [MS_AccessPros] Retrive AcroRd32.exe location
Good Day!
How do I retrieve the location of AcroRd32.exe file?
Need location to use it to print multiple PDF files via command.
'strAppPDF= (......AcroRd32.exe)
'!ScanDocPath= (PDF file name)
'strPrinter= (Printer)
'(Prints multiple PDF files via recordset)
..................................................
strSQL = "SELECT * FROM qryEODReportsPDFFiles Where ScanDocDate=#" & Me.txtEODFOLDER & "#"
Set rstRS = dbsDB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
With rstRS
.MoveFirst
Do While Not .EOF
Call Shell(Chr(34) & strAppPDF & Chr(34) & " /P /h /t " & Chr(34) & !ScanDocPath & Chr(34) & strPrinter, 0)
KillAdobe
strPrinter = ""
.MoveNext.
Loop
End With
..............................................
Thanks
Norbert
I expect there are VBA snippets that will find this for you.
Duane Hookom, MVP
MS Access
To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Sun, 12 Apr 2015 08:03:44 -0700
Subject: [MS_AccessPros] Retrive AcroRd32.exe location
Good Day!
How do I retrieve the location of AcroRd32.exe file?
Need location to use it to print multiple PDF files via command.
'strAppPDF= (......AcroRd32.exe)
'!ScanDocPath= (PDF file name)
'strPrinter= (Printer)
'(Prints multiple PDF files via recordset)
..................................................
strSQL = "SELECT * FROM qryEODReportsPDFFiles Where ScanDocDate=#" & Me.txtEODFOLDER & "#"
Set rstRS = dbsDB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
With rstRS
.MoveFirst
Do While Not .EOF
Call Shell(Chr(34) & strAppPDF & Chr(34) & " /P /h /t " & Chr(34) & !ScanDocPath & Chr(34) & strPrinter, 0)
KillAdobe
strPrinter = ""
.MoveNext.
Loop
End With
..............................................
Thanks
Norbert
__._,_.___
Posted by: Duane Hookom <duanehookom@hotmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar