create PDF in VB6

so far I've found this undocumented function to convert one tif to a pdf ...
my problem is that need to put more then one tif in a pdf ... any pointers would be greatly appreciated as automation is pretty new to me ... thanks


Private Sub Tif2PDF(filename As String)
Dim AcroApp As Object
Dim AVDoc As Object
Dim PDDoc As Object
Dim IsSuccess As Boolean

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")

Call AVDoc.Open(filename, "")

Set AVDoc = AcroApp.GetActiveDoc

If AVDoc.IsValid Then

Set PDDoc = AVDoc.GetPDDoc
' Fill in pdf properties.
PDDoc.SetInfo "Title", "test" 'txtDocTitle.Text
PDDoc.SetInfo "Author", "test" 'txtDocAuthor.Text
PDDoc.SetInfo "Subject", "test" 'cboDocType.Text
PDDoc.SetInfo "Keywords", "test" ' txtDocKeyword.Text
If PDDoc.Save(1 Or 4 Or 32, App.Path & "\docfile.pdf") <> True Then
MsgBox "Failed to save " & filename
End If
End If
'Close the PDF
AVDoc.Close True
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing
End Sub
Who is Participating?
ComTechConnect With a Mentor Commented:
This question has been ansered my the Member, and will be placed in PAQ.

CS Admin @ EE
Ryan ChongCommented:
Some info that generate PDF using Word:

 Dim msWord As Word.Application
 Set msWord = GetObject(Class:="Word.Application.8")

 msWord.Visible = False
 msWord.ActivePrinter = "Acrobat PDFWriter"
 msWord.Documents.Open "c:\temp\spec.doc"

NinibiniAuthor Commented:
I already thought about using Word, but unfortunately it was requested that only Acrobat needs be installed on the computer.
NinibiniAuthor Commented:
i was able to figure it out myself...

'open a template pdf, with one empty page

          Set pdDoc = CreateObject("AcroExch.PDDoc")
          pdDoc.Open template

          Set AVDoc = CreateObject("AcroExch.AVDoc")

          'Setzen der Dokumenteigenschaften
          pdDoc.SetInfo "Title", Now
          pdDoc.SetInfo "Author", ""
          pdDoc.SetInfo "Subject", curBarcodeNr
          pdDoc.SetInfo "Keywords", curBarcodeNr

'insert images ( call function as often as needed)
          If Not insertTif(basePath & .Fields("Volume2")) Then
            MsgBox "error occurred while inserting the file"
          End If


'save the document
            pdDoc.DeletePages 0, 0 'delete first, empty page
            'Save PDF-Document
            If pdDoc.Save(1 Or 4 Or 32, PDF) <> True Then
              Print #2, "unable to save file"
              Print #2, "file saved"
            End If
            Set AVDoc = Nothing


Private Function insertTif(file As String) As Boolean
  Dim tmp_PDDoc As Acrobat.CAcroPDDoc
  Call AVDoc.Open(file, "")
  Set AVDoc = AcroApp.GetActiveDoc
  If AVDoc.IsValid Then
    Set tmp_PDDoc = AVDoc.GetPDDoc
    pdDoc.InsertPages 0, tmp_PDDoc, 0, 1, False
    insertTif = True
    'Fehler beim Einf├╝gen
    insertTif = False
  End If
  'Close the PDF
  AVDoc.Close True
  Set tmp_PDDoc = Nothing
End Function
Ryan ChongCommented:
ok, please post a request at Community Support whether to PAQ this question with 0 pts or delete this question as you wish.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.