Adobe5 and VB6 are NOT compatable. You have to have a PSPrinter to connect the two fo them. This creates a .ps extention from a word doc. You have to call the distiller to convert to a PDF. I use a VB program to read an excel spreadsheet, if pub col = yes then I open word, call the PSPrinter, the distiller and post to the web. Here is a section of code for that process. Just as a side note, do you realize that VB6 is not compatable with VB5? If you are upgrading to VB6 from 5 you may loose some of your dll's depending on the dll being used. There is a download on the MS site to correct this problem, look at: "
Public Sub ConvertFiles()
'open word, create ps, launch distiller,clean out "IN"
On Error GoTo ErrorHandler
Dim intCounter, intFileCounter As Integer
Dim Wor As Object
Dim Dist As ACRODISTXLib.PdfDistiller 'calls distiller.
Dim Doc As Word.Document
Dim Wrd As Word.Documents
Dim optionsFile As String
Dim w As Word.Application
Set Wor = CreateObject("Word.Application"
Set Wrd = Wor.Documents
Word.ActivePrinter = "HP LaserJet 5/5M PostScript"
lblAction = "Converting files"
ProgressBar.Max = intFlyerCounter
For intCounter = 1 To intFlyerCounter
DoEvents
ProgressBar.Value = intCounter
If Record(intCounter).strPublish = "Yes" Then
For intFileCounter = 1 To Record(intCounter).intNumberOfFiles
txtActions = txtActions & "Converting " & Record(intCounter).aryFileNames(intFileCounter) & vbCrLf
txtActions.SelStart = Len(txtActions) 'at the end of the sreadsheet, will show an error, its at EOF
Set Doc = Wrd.Open(strFrom & Record(intCounter).aryFileNames(intFileCounter))
Doc.PrintOut 0, 0, 0, OutputFileName:="\\folderForThePSFile\In\" & Mid(Record(intCounter).aryFileNames(intFileCounter), 1, 8)
If (pdfDist Is Nothing) Then
Set pdfDist = New PdfDistiller
pdfDist.bSpoolJobs = True
End If
optionsFile = "Print.joboptions"
pdfDist.FileToPDF "\\forThePSFile\In\" & Mid(Record(intCounter).aryFileNames(intFileCounter), 1, 8), "\\forThePDF\Out\", optionsFile
txtActions = txtActions & Record(intCounter).aryFileNames(intFileCounter) & " converted" & vbCrLf
txtActions.SelStart = Len(txtActions)
Wrd.Close
Next
End If
Next
txtFilesUploaded = intNumberOfFilesCopied
lblAction = "Finished converting files"
ProgressBar.Value = 0
Wor.Quit
Kill "\\clears out the in folder\In\*.*"
'This is going to be a kill stmnt to clean out the "IN" folder
Exit Sub
ErrorHandler:
If Err.Number = 462 Or Err.Number = -2147023173 Or Err.Number = -2147023170 Or Err.Number = -2147417848 Then
'errors generated by Acrobat
Resume Next
End If
txtActions = txtActions & "ConvertFiles" & vbCrLf & "Error Number: " & Err.Number & vbCrLf & "Error msg: " & Err.Description & vbCrLf & Err.Source & vbCrLf
txtActions.SelStart = Len(txtActions)
Resume Next
End Sub
**************************************
this section belongs in a module
**************************************
Private Const ACROBAT_APP = "Software\Adobe\Adobe Acrobat\5.0\InstallPath"
Private Const OPTIONS_EXT = ".joboptions"
Public pdfDist As PdfDistiller
Private bWorking As Boolean
hope it helps, MS and Adobe really should be ashamed of their selves.
