With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|T-SQL for SS2000 -- get position of char(13) in a long text field||11||33|
|How can I save all open docs into a given folder||12||90|
|How to base a filter depending on fields contents?||15||50|
|MS Access Hiden Columns||19||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!