Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共23 条记录, 每页显示 10 条, 页签: [1] [2][3]
[浏览完整版]

标题:分享:如何实现指定目录下的pdf文件 1、合并成一个新的pdf 2、对新pdf实现写入编码,排除封面和目录页,从第3页开始编码;同时实现单数与偶数页编码位置不同进行设置。

1楼
cnsjroom 发表于:2023/11/20 3:22:00
如何实现指定目录下的pdf文件
1、合并成一个新的pdf,比如合并成“我是新pdf”的pdf文件;
2、对新pdf实现写入编码,排除封面和目录页,比如封面页数为1,目录页为1,那就视为正文是从第3开始,从第3页开始,编码从1至文档结束;同时实现单数与偶数页编码位置不同进行设置。
3、对编码后的文件输出为“我的新pdf编码”的pdf,然后供使用。
 

可内部函数里面直接cs端运行,也可以放入BS端进行调用运行。
Dim e As RequestEventArgs = rq.e
Dim ymsum As Integer = functions.Execute("pdfSharp获取多个pdf文件的页数并汇总", ProjectPath & "\pdf测试")
Dim mbpdf As String = Functions.Execute("pdfSharp合并指定目录下的pdf并生成一个新的pdf文件", ProjectPath & "\pdf测试", "我是新pdf")
Dim fmml As Integer = Functions.Execute("pdfSharp获取封面目录页页数并汇总", ProjectPath & "\pdf测试")
Dim Str As String = Functions.Execute("pdfSharp根据指定页数来添加对应的数字作编码水印", "我是新pdf", "我是新pdf编码",fmml)
Dim Proc As New Process '定义一个新的Process
Proc.File = Str '指定要打开的文件
Proc.Start()


以下内容只有回复后才可以浏览


使用截图:
文件目录及文件:
图片点击可在新窗口打开查看
生成后的目录内容:
图片点击可在新窗口打开查看
我是新pdf编码文件的截图
图片点击可在新窗口打开查看
(合并的pdf中封面页和目录页没有进行编码,系统自动避开)
图片点击可在新窗口打开查看
                                                               
                                                                                        (合并的pdf中进行编码,可灵活设置单数页与双数页 编码位置的方向)
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/11/20 3:25:28编辑过]
2楼
有点蓝 发表于:2023/11/20 8:25:00
服务端项目去掉下面3句代码

Dim Proc As New Process '定义一个新的Process
Proc.File = Str '指定要打开的文件
Proc.Start()
3楼
WELOVEFOX 发表于:2023/11/20 9:04:00
学习一下
4楼
ey1001 发表于:2023/11/20 9:29:00
学习一下
5楼
cnsjroom 发表于:2023/11/20 18:13:00
好的老师   实际使用时是去掉了的   在调试的时候可以保留
6楼
lihe60 发表于:2023/11/21 13:41:00
精华
7楼
飞云 发表于:2023/11/21 18:45:00
学习
8楼
garry5594 发表于:2023/11/21 19:36:00
看看
9楼
诚学思行 发表于:2023/11/30 10:39:00
学习,有用。
10楼
jyh7081 发表于:2023/11/30 19:13:00
OK
共23 条记录, 每页显示 10 条, 页签: [1] [2][3]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .35156 s, 4 queries.