Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regClasses As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot
Dim regWord As Microsoft.Win32.RegistryKey = regClasses.OpenSubKey("AcroExch.Document").OpenSubKey("shell").OpenSubKey("open").OpenSubKey("command")
Dim adobeReaderPrintCommand As String = regWord.GetValue("").ToString()
Dim pi As New ProcessStartInfo
pi.Arguments = "c:\test.pdf"
pi.FileName = adobeReaderPrintCommand.Replace("""%1""", "").Trim
Dim p As New Process
p.StartInfo = pi
p.Start()
End Sub
worked on mine, although if ADOBE is the default handler then the following may be asier
Dim pi As New ProcessStartInfo
pi.FileName = "c:\test.pdf"
Dim p As New Process
p.StartInfo = pi
p.Start()