Foxtable(狐表)用户栏目专家坐堂 → 请问如何用代码打印PDF文件


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

主题:请问如何用代码打印PDF文件

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


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
请问如何用代码打印PDF文件  发帖心情 Post By:2019/6/27 9:16:00 [只看该作者]

我有1000多个PDF文档需要用代码自定义打印请问哪位老兄有办法

 回到顶部
帅哥哟,离线,有人找我吗?
song888
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
  发帖心情 Post By:2019/6/27 10:41:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/27 11:02:00 [只看该作者]

无法直接打印pdf,pdf转图片参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/27 11:06:00 [只看该作者]

或者

 

Dim Proc As New Process
Proc.File = "d:\test.pdf"
Proc.Verb = "Print" '指定动作
Proc.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
song888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
  发帖心情 Post By:2019/6/27 16:39:00 [只看该作者]

//创建PdfDocument类的对象,并加载PDF文档
PdfDocument doc = new PdfDocument();
doc.LoadFromFile("Test.pdf");

//使用默认打印机打印文档所有页面
doc.Print();

 回到顶部
帅哥哟,离线,有人找我吗?
song888
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
  发帖心情 Post By:2019/6/27 16:42:00 [只看该作者]

引用这个 不知为啥打印不出来 Spire.Pdf.dll
.

        For Each r As Row In Tables("认定审批2").Rows
            Dim pdf As PdfDocument = New PdfDocument("E:\申请目录2\15649\" & r("报名号").ToString & ".pdf")
            pdf.PrintDocument.Print()
        Next

 回到顶部
帅哥哟,离线,有人找我吗?
song888
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
  发帖心情 Post By:2019/6/27 16:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
song888
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:165 威望:0 精华:0 注册:2019/6/27 9:05:00
  发帖心情 Post By:2019/6/27 16:46:00 [只看该作者]


For Each r As Row In Tables("认定审批").Rows
    Dim pdf As pdf.PdfDocument = New pdf.PdfDocument("E:\申请目录2\15649\" & r("报名号").ToString & ".pdf")
    pdf.PrintDocument.Print()
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/27 18:40:00 [只看该作者]

mark 打印pdf

 

引用dll

 

下载信息  [文件大小:395.1 KB  下载次数:41]
图片点击可在新窗口打开查看点击浏览该文件:o2s.components.pdfrender4net.zip

 

执行代码

 

Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("d:\test.pdf")
Dim ps As new System.Drawing.Printing.PrinterSettings
Dim pdfPrintSettings As new O2S.Components.PDFRender4NET.Printing.PDFPrintSettings(ps)
pdffile.print(pdfPrintSettings)
pdffile.dispose


 回到顶部