Dim PrintPDF As New ProcessStartInfo
For Each fileName1 In Directory.GetFiles(strALPRMailOutReports, "*.pdf", SearchOption.AllDirectories)
PrintPDF.UseShellExecute = True
PrintPDF.Verb = "print"
PrintPDF.WindowStyle = ProcessWindowStyle.Hidden
fileNameOnly = Path.GetFileName(fileName1)
PrintPDF.FileName = strALPRMailOutReports & "" & fileNameOnly
Process.Start(PrintPDF)
next