any one who can help
Private
Sub PrintDoc(ByVal fullPath As String)
Try
Dim pathToExecutable As String = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
Dim sReport = fullPath.ToString 'Complete name/path of PDF file
Dim SPrinter = "HP LaserJet 5100 tn" 'Name Of printer
Dim starter As New ProcessStartInfo(pathToExecutable, "/t """ + sReport + """ """ + SPrinter + """")
Dim Process As New Process()
Process.StartInfo.CreateNoWindow = True
Process.StartInfo.FileName = "C:\Stands.pdf"
Process.StartInfo = starter
Process.Start()
Process.WaitForExit(10000)
'Process.Kill()
Process.Close()
Catch e As Exception
AppendToLogFile(
"Error in Printing " & e.Message)
End Try
End
Sub 'PrintDoc