⑴ 通过vba能不能实现从excel超链接打开pdf文件，然后让pdf文件自动打印！不需要手动！
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Pout()
Dim FileSaveName$
FileSaveName = Application.GetOpenFilename(fileFilter:="Files (*.pdf), *.pdf")
On Error GoTo l
CreateObject("Wscript.Shell").Run (FileSaveName)
ShellExecute Application.hwnd, "Print", FileSaveName, vbNullString, vbNullString, 0
l:
End Sub
⑵ 求解：(VB6.0)如何在程序中调用打开PDF文件
下面的代码是调用系统默认程序打开PDF，注意修改文件路径D:\help.pdf
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
Dim result
result = ShellExecute(0, vbNullString, "D:\help.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)
If result <= 32 Then
MsgBox "打开失败！", vbOKOnly + vbCritical, "错误：", 0
End If
End Sub
⑶ vb6中如何实现在窗体中查看doc或pdf文档
是这样么，只要用vb工具栏默认控件
ole。拖到窗体上，会出现选择类型对话框。选择类型，再指定文件路径。就可以显示了，只有内容
⑷ 通过VBA用WORD打开PDF时，WORD遇到了错误，如何捕获和跳过该错误，让代码继续运行
比如：Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
在excel中，横向选中两个单元格，就打开c:\下的12345.doc文件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Rows.Count = 1 And Target.Columns.Count = 2 Then
Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
End If
End Sub
⑸ vb中，怎么打开一个PDF文件，仅仅是打开
Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。Shell的语法：Shell(PathName[，WindowStyle])。PathName为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。常量值描述VbHide0窗口被隐藏，且焦点会移到隐式窗口。VbNormalFocus1窗口具有焦点，且会还原到它原来的大小和位置。VbMinimizedFocus2窗口会以一个具有焦点的图标来显示（缺省值）。VbMaximizedFocus3窗口是一个具有焦点的最大化窗口。VbNormalNoFocus4窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。VbMinimizedNoFocus6窗口会以一个图标来显示，而当前活动的窗口仍然保持活动SHELL函数的第一个参数是可以设定为相对路径的。举个例子，在程序同一目录下有个文件example.exe：PrivateSubForm_Load()DimaAsIntegera=Shell(App.Path&"\example.exe",vbNormalFocus)EndSub打开一个example.exe文件在VB中SHELL函数的使用仅限制于*.exe*.com*.bat等类型的文件。对于你的问题，可以写成a＝shell("E:\Keil\UV4\Uv4.exe",3)