VBA：如何合并两份PDF格式的图纸？

157787698

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件

5 ^# Y& [. ~' Pcad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
' X8 H# r! i& j! j+ I- |6 q. L$ }) ?. J有没有办法合并呢？或者直接输出成一份PDF文件？
5 S# p6 Y# m! J: W/ T/ P) ^- _
9 M$ d& u) d4 {* f" D4 u$ z请大虾们帮忙

157787698

PDF里面是有手工插入文档的功能的，但是如何自动实现呢

lamborghin

Adobe Acrobat 可以

157787698

我知道Adobe Acrobat 可以，但是如何通过程序来自动实现呢

woaishuijia

使用下面代码前应保证安装了Acrobat并引用其类库

1. Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   ) }0 J) y  \6 \8 w( {8 x
2. PDDoc1.Open 第一个PDF文档的完整路径(字符串)
   
3. PDDoc2.Open 第二个PDF文档的完整路径(字符串)
     A  |4 t! z- y/ x; A3 `( @9 }
4. PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
     \- r$ c7 x6 g! E
5. PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698

多谢斑竹，我去试试

157787698

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
5 w2 U$ z9 p4 h% A- N/ yPDDoc1.Open 第一个PDF文档的完整路径(字符串)
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
PDDoc1.Inse ...
; @3 c3 m2 v+ Hwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

' H7 K+ I6 O8 Y; A5 ?$ J# m为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并

1. 
   
2.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
3.     Dim path1 As String, path2 As String, path3 As String
   $ {! \( l& J: x, g9 ~& p- O- _
4.     path1 = "d:\1.pdf"
   - y4 J9 Z7 u- g, P8 B+ {- M' _; n) _
5.     path2 = "d:\2.pdf"
   % g, p6 B* `1 l# b9 p/ C' ~
6.     path3 = "d:\3.pdf"
   
7.    
   ' }. T& d' f8 W  c9 O9 G7 E
8.     PDDoc1.Open path1
   
9.     PDDoc2.Open path2
   
10.     PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
    5 ?1 z) K0 l) k. P$ Y
11.     PDDoc1.Save 1, path3
    ) H' q, {# @0 r+ A  Q
12. 
    

复制代码

0 r1 y1 W! O# x: I$ d4 N) u
引用了Acrobat类库，下图
% H' j: V% x; S5 G3 q

woaishuijia

页号错了.我在5楼已经说了页号从0开始,呵呵

1.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2.     Dim path1 As String, path2 As String, path3 As String
   + E0 I) U# ~  B
3.     path1 = "d:\1.pdf"
   
4.     path2 = "d:\2.pdf"
   " ?7 Y7 q: B% S3 Y1 \
5.     path3 = "d:\3.pdf"
   : g- P( |2 f9 z) G
6.    
   0 m) n( k5 R/ L6 S
7.     PDDoc1.Open path1
   
8.     PDDoc2.Open path2
   
9.     PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
   
10.     PDDoc1.Save 1, path3

复制代码

157787698

多谢

; w; S) B( c/ f/ f我理解成了页号可以从0开始，呵呵

shajianlin

批量打印 batchplot
8 a. M" O9 D' _6 L+pdf factory 可以实现