I have a table with the full paths of several files (that happen to be PDFs).
I have this code that will print all the files but I would like to modify/replace it with code that will limit the print to the first page of each file:
Dim cFile As String
Dim RetVal As Long
cAction = "printto"
cPrinterName = "DPW_MGT - Ricoh MP6000"
' Get files to print
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from DigSafePackagePrint order by Address, Sort")
Do While rs.EOF = False
If Len(Dir(rs("FilePath"))) Then
cFile = rs!FilePath
RetVal = ShellExecute(0, cAction, cFile, cPrinterName, "", 1)
cFile = ""
Set rs = Nothing