pdf erstellen / Argument not optional
05.05.2008 10:14:00
Comella
ich versuche aus Excel pdfs zu erstellen und greife dabei auf eine Prozedur (aus diesem Forum) zurück welche anscheinend bei anderen Anwendern funktioniert. Ich jedoch erhalte die Fehlermeldung "Argument not optional." Kann mir jemand sagen woran das liegt.
Besten Dank & Gruss
Commi, Winterthur
Public Sub pdf_kreieren()
Dim strPath As String
Dim strFileName As String
strPath = "R:\Temp\"
strFileName = "testfile"
Dim objDistiller As New ACRODISTXLib.PdfDistiller
objDistiller.bShowWindow = False
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True, PrtoFilename:=strPath & strFileName _
& ".ps"
objDistiller.FileToPDF
Kill strPath & strFileName & ".ps"
Set objDistiller = Nothing
End Sub