Previous | Next | (P-PDF) Developers

Topic: Changing properties of PDF file with VB
Conf: (P-PDF) Developers, Msg: 78623
From: Deleted User
Date: 12/25/2002 06:38 PM

Private Sub setPdfInfo(ByVal pdfFileName As String, Optional ByVal pdfTitle As String, Optional ByVal pdfAuthor As String, _
Optional ByVal pdfSubject As String, Optional ByVal pdfKeyWord As String)
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim IsSuccess As Boolean

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
Call AVDoc.Open(pdfFileName, "")
Set AVDoc = AcroApp.GetActiveDoc
If AVDoc.IsValid Then
Set PDDoc = AVDoc.GetPDDoc
' Fill in pdf properties.
PDDoc.SetInfo "Title", pdfTitle
PDDoc.SetInfo "Author", pdfAuthor
PDDoc.SetInfo "Subject", pdfSubject
PDDoc.SetInfo "Keywords", pdfKeyWord
PDDoc.Close
End If
'Close the PDF
AVDoc.Close True
AcroApp.Exit
'Cleanup
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing
End Sub
Alan Li
RocSky SplitPDF, Separate a multipage Pdf into many a one page PDF document.
RocSky PDFMerger,Merge many a PDF into a single PDF, before merge, you can sort and delete them.
Html2PDF,Batch Convert HTML (in a directory) to PDF
http://www.rocsky.com/ or
http://pisces.3322.net