专家坐堂-谁知道pdf文件不用打开，直接发送到打印机打印改如何处理吗？多谢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "PDF文件|*.pdf" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1") \'声明页面集合

Dim pdf As new AxFoxitReaderSDKProLib.AxFoxitReaderSDK \'声明PDF的SDK

pdf.Dock = System.Windows.Forms.DockStyle.Fill \'定义打开的PDF文件填充范围为页面集合区域)

Dim finfo As new FileInfo(dlg.FileName) \'声明打开文件的"路径+文件名"

Dim name = finfo.Name.Replace(finfo.Extension, "") \'声明打开文件的文件名

此主题相关图片如下：截屏图片11.jpg

tab.TabPages.Add(name, name) \'添加页面集合的页面,并将页面名称及页面标题定义为其打开的文件名

Dim pb = tab.BaseControl

PB.TabPages(name).Controls.add(pdf)

tab.SelectedPage = tab.TabPages(name)

pdf.openfile(dlg.FileName,"")

pdf.ShowTitleBar(False)

End If