New PdfDistiller

Jeg prøver at få genereret en pdf-fil ved et tryk på en knap, og hertil har jeg følgende kode:

Private Function TestPDF()

    Dim PSFileName As String
    Dim PDFFileName As String
   
    Dim myPDF As PdfDistiller
   
    PSFileName = "C:\TEMP\StructuredProductFacts.ps"
    PDFFileName = "C:\TEMP\StructuredProductFacts.pdf"
   
    ' Print the Excel range to the postscript file
    Dim MySheet As Worksheet
    Set MySheet = ActiveSheet
   
    MySheet.PrintOut Copies:=1, preview:=False, _
    ActivePrinter:="Acrobat Distiller", printtofile:=True, Collate:=True, _
    prtofilename:=PSFileName
   
    'Convert the postscript file to .pdf
    Set myPDF = New PdfDistiller
    myPDF.FileToPDF PSFileName, PDFFileName, ""

End Function

Iflg. diverse hjemmesider skulle det virke, og jeg får da også genereret en fil i PS-format. Problemet opstår, når jeg skal lave et nyt instans af PdfDistiller, hvilket giver fejlen:

"Automation error. The system cannot find the path specified."

Jeg har prøvet at slå referencen til og fra et par gange, og når jeg åbner PS-filen manuelt, bliver den lavet om til pdf. Nogen der har et godt bud på, hvorfor den går ned?

Mvh Morten