在网上找了半天都是用ShellExecute来运行外部程序，我自己弄了半天也没弄明白怎么弄，所以只好找其他的方法了

Dim p As New Process Dim pi As New ProcessStartInfo pi.Verb = "open"'也可以是print 'pi.WindowStyle = ProcessWindowStyle.Hidden pi.FileName = "a.pdf" pi.UseShellExecute = True'必须的 p.StartInfo = pi If Dir(pi.FileName) <> "" Then p.Start() End If