If you are already creating the separate PDfs and you are able to save the
full path names in an array, you can pass that array and the "combined file
name" to the following sub(This requires you to reference the Adobe Acrobat
5.0 Type Library.):
btw, We use Win2PDF printer from daneprairie.com to programmatically create
the single PDF files. It's easy to name the files through VB code and it is
only $30.
Private Sub CombinePDFs(arrPdfFiles() As String, strFileName As String)
Dim b As Boolean
Dim AcroPDDoc As CAcroPDDoc
Dim PDDoc As CAcroPDDoc
Dim i As Integer
Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
Set PDDoc = CreateObject("AcroExch.PDDoc")
b = AcroPDDoc.Open(arrPdfFiles(0))
b = AcroPDDoc.Save(1, strFileName)
For i = LBound(arrPdfFiles) + 1 To UBound(arrPdfFiles)
b = PDDoc.Open(arrPdfFiles(i))
b = AcroPDDoc.InsertPages(0, PDDoc, 0, 1, False)
b = AcroPDDoc.Save(1, strFileName)
b = PDDoc.Close
Next i
b = AcroPDDoc.Close
End Sub
Chris
"FaciCAD"
wrote in message
news:[email protected]...
> Iam using Adobe Acrobat 5, but I don't want to insert each sheet in PDF
> file(the way use now), beacause some time I have more then 50 sheet :(. I
> would like AutoCAD make single file for each sheet I have in my DWG. Am
use
> Acrobate PDFWriter
>
>
