Print til PDF via VBA i excel: .FileToPDF problem
Jeg får følgende fejl når jeg prøver at Converte en automatisk genereret Postscript fil til PDF via PdfDistiller objektets FileToPDF funktion: "The system cannot find the path specified".Stien til ps filen der bruges i funktionen, er dog den samme der gemmes til tidligere, hvilket virker, så der må være en anden grund til problememt. Er der nogen, der har bud på dette?
Her er funktionen, hvori det problemet findes:
Sub PrintPDF(PrintRange As Range, iSectorIteration As Integer)
Dim sPathEnd As String
If iSectorIteration < 10 Then
sPathEnd = "0" & iSectorIteration
Else
sPathEnd = iSectorIteration
End If
Dim PSFileName As String
Dim PDFFileName As String
Dim PDFJoboptions As String
PSFileName = "R:\Temp\AndreasTest\PostScriptTemp.ps"
PDFFileName = "R:\Temp\AndreasTest\ID" & sPathEnd & ".pdf"
PDFJoboptions = "R:\Temp\AndreasTest\PDFjoboptions.joboptions"
PrintRange.PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=PSFileName
Dim myPDF As New PdfDistiller
DoEvents
myPDF.FileToPDF PSFileName, PDFFileName, PDFJoboptions
DoEvents
End Sub
