We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Function PrintDigSafePackage() Dim cFile As String Dim RetVal As Long Dim cAction Dim cPrinterName 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") 'Print Files Do While rs.EOF = False If Len(Dir(rs("FilePath"))) Then cFile = rs!FilePath RetVal = ShellExecute(0, cAction, cFile, cPrinterName, "", 1) End If cFile = "" rs.MoveNext Loop rs.close Set rs = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.