' Reference "Acrobat Distriller" [ "C:\Programme\Adobe\Acrobat" & _
  "6.0\Distillr\acrodist.exe"] 
 
Sub DistilAFile(strInputPostScript As String, strOutputPDF As String, _
  strJobOptions As String)
    Dim myPDFDist As PdfDistiller6
    Set myPDFDist = New PdfDistiller6
    myPDFDist.FileToPDF strInputPostScript, strOutputPDF, strJobOptions
End Sub
 
 
Private Sub Command1_Click()
     DistilAFile "C:\TEMP\test.ps", "C:\TEMP\test.pdf", "C:\Program" & _
       "Files\Adobe\Acrobat 6.0" & _
							"\Distillr\Settings\Standard.joboptions"
End Sub

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...