vb如何打開pdf文件

Ⅰ VBA使用sendkeys列印已打開的PDF文件

Public Sub PPDone()
keybd_event vbKeyControl, MapVirtualKey(vbKeyControl, 0), 0, 0 '模擬Ctrl按下
keybd_event vbKeyV, MapVirtualKey(vbKeyP, 0), 0, 0 '模擬P按下
keybd_event vbKeyV, MapVirtualKey(vbKeyP, 0), KEYEVENTF_KEYUP, 0 '模擬P彈起
keybd_event vbKeyControl, MapVirtualKey(vbKeyControl, 0), KEYEVENTF_KEYUP, 0 '模擬Ctrl彈起
End Sub

把這個加到模塊里，要列印的時候的時候調用一下內PPDone

你可以試容著琢磨一下

希望我的回答對你有所幫助

Ⅱ VB.net 打開內嵌文件的問題

呵呵 又是你
我寫過一個純寫入文件的東西，手機上看不方便，給你鏈接。在項目的Login窗體裡面
<a href="http://..com/question/551551992.html" target="_blank">http://..com/question/551551992.html</a>
你知道怎麼弄吧？

——————
這個代碼略多，手機打真心不方便
首先，你到資源頁上看看那個pdf文件的類型（屬性面板里），沒記錯的話是byte的一維數組。
If Not System.IO.File.Exists("flow.pdf") Then '上次少寫個.Exists不好意思
Dim fs As New System.IO.FileStream(Application.StartupPath & "\flow.pdf", FileMode.Create)
fs.Write(My.Resources.flow, 0, My.Resources.Length)
fs.Flush()
fs.Dispose()
End If
PicPath = Application.StartupPath & "\flow.pdf"
Process.Start(PicPath)
手機寫的，估計有不少錯
，見諒了

Ⅲ 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)

Ⅳ 求解：(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

Ⅳ 如何在vb中打開一個PDF文件

利用AcroPDF打開並顯示PDF文件。

注意：必須事先安裝免費的 Adobe Reader 11.0

（1）創建一個VB6工程。在工具欄中點擊滑鼠右鍵，調出右鍵菜單-->部件-->Adobe Acrobat 7.0 Control Type Library 1.0-->確定