Foxtable(狐表)用户栏目专家坐堂 → 谁知道pdf文件不用打开,直接发送到打印机打印改如何处理吗?多谢


  共有4048人关注过本帖树形打印复制链接

主题:谁知道pdf文件不用打开,直接发送到打印机打印改如何处理吗?多谢

帅哥哟,离线,有人找我吗?
lhkyyx170
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:263 威望:0 精华:0 注册:2017/11/13 18:50:00
  发帖心情 Post By:2018/3/8 19:20:00 [显示全部帖子]

那请问一下,如果引用第三方控件,应该是引用AcroRd32.dll这个控件吗,我引用了一下,带显示引用错误。提示:无法加载引用的库,试图加载不是不正确的程序。

    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图片点击可在新窗口打开查看


 回到顶部