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
PDDoc.Close
End If
'Close the PDF
AVDoc.Close True
AcroApp.Exit
'Cleanup
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing
End Sub
LVL 1
NinibiniAsked:
Who is Participating?
 
ComTechConnect With a Mentor Commented:
This question has been ansered my the Member, and will be placed in PAQ.

Regards,
ComTech
CS Admin @ EE
0
 
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"
 msWord.ActiveDocument.PrintOut    

source: http://www.experts-exchange.com/visualbasic/Q_20318802.html
0
 
NinibiniAuthor Commented:
I already thought about using Word, but unfortunately it was requested that only Acrobat needs be installed on the computer.
0
 
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"
            Else
              Print #2, "file saved"
              pdDoc.Close
            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
  Else
    'Fehler beim Einf├╝gen
    insertTif = False
  End If
  'Close the PDF
  AVDoc.Close True
  Set tmp_PDDoc = Nothing
End Function
0
 
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.
0
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.