⑴ 通過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)