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-->确定