Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.